OFFSET
1,1
COMMENTS
Differs from A062677 which contains also the composites 6889 = 83^2, 7387 = 83*89, 23489=83*283, 25187=89*283, 31789 = 83*383 etc. - R. J. Mathar, Mar 27 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
isA284292 := proc(n)
if isprime(n) then
convert(convert(n, base, 10), set) ;
if 8 in % then
true;
else
false;
end if;
else
false;
end if;
end proc:
for n from 1 to 2000 do
if isA284292(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Mar 27 2017
MATHEMATICA
Select[Prime@ Range@ 500, MemberQ[ IntegerDigits@ #, 8] &] (* Giovanni Resta, Mar 25 2017 *)
PROG
(Magma) [p: p in PrimesUpTo(10000) | 8 in Intseq(p)]
(Python)
from sympy import primerange
print([n for n in primerange(2, 2000) if '8' in str(n)]) # Indranil Ghosh, Mar 25 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 25 2017
STATUS
approved