%I #6 Feb 16 2015 20:21:04
%S 2,3,7,11,13,17,19,23,31,37,41,43,47,59,61,67,71,73,83,89,97,107,109,
%T 113,157,163,167,173,181,191,193,197,199,211,223,233,239,241,281,283,
%U 293,307,311,313,317,331,337,347,349,359,367,373,409,419,421,431,433
%N Primes whose base 5 representation does not contain a 0.
%e 23 = 43 (base 5) which contains no 0.
%p The following stores the first 200 digits of the sequence in K: for i from 1 to 200 do if i=i then x[i]:=convert(ithprime(i),base,5) else x[i]:=0 end if: end do: S:={}: for i from 1 to 200 do if evalb(`in`(0, x[i]))=false then S:=S union {i} fi od; for i from 1 to nops(S)do z[i]:=ithprime(S[i]) od: K:=[seq((z[i]),i=1..nops(S))];
%Y Cf. A082555.
%K base,nonn
%O 1,1
%A _Jonathan D. B. Hodgson_, Oct 08 2010
|