cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A178960 Numbers n such that n! contains every digit at least once.

This page as a plain text file.
%I A178960 #14 Mar 17 2023 09:55:41
%S A178960 23,27,31,33,34,35,36,37,39,40,42,43,44,45,46,47,48,49,50,51,52,53,54,
%T A178960 55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,
%U A178960 78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101
%N A178960 Numbers n such that n! contains every digit at least once.
%e A178960 23 is in the sequence because 23! = 25852016738884976640000 contains every
%e A178960   digit at least once.
%p A178960 with(numtheory):Digits:=200:B:={0,1,2,3,4,5,6,7,8,9}: T:=array(1..250) : for
%p A178960   p from 1 to 200 do:ind:=0:n:=p!:l:=length(n):n0:=n:s:=0:for m from 1 to l do:q:=n0:u:=irem(q,10):v:=iquo(q,10):n0:=v : T[m]:=u:od: A:=convert(T,set):z:=nops(A):if A intersect B = B and ind=0 then ind:=1: printf(`%d, `,p):else fi:od:
%t A178960 Select[Range[101], Length[Union[IntegerDigits[#!]]] == 10 &]
%o A178960 (Magma) [n: n in [0..101] | Seqset(Intseq(Factorial(n))) eq {0..9}]; // _Bruno Berselli_, May 17 2011
%Y A178960 Cf. A178929, A054038, A156977, A054038, A074205, A020666.
%K A178960 nonn,base
%O A178960 1,1
%A A178960 _Michel Lagneau_, Dec 31 2010