OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
17=32_5 is in the sequence since it and its base-5 suffix (2_5=2) are primes.
113=423_5 is in the sequence since it and each of its base-5 suffixes (23_5=13 and 3_5=3) are prime.
MAPLE
F[1]:= [2, 3]:
for m from 2 while nops(F[m-1]) < 100 do
F[m]:= [op(F[m-1]), op(select(isprime, [seq(seq(i*5^
(m-1)+x, x=F[m-1]), i=1..4)]))]
od:
F[m-1]; # Robert Israel, Jan 22 2020
PROG
(PARI) isok(n) = {if (isprime(n), pp = 5^logint(n, 5); while (isprime(n % pp) && (pp != 1), pp = pp/5); pp == 1; ); } \\ Michel Marcus, Nov 26 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Randy L. Ekl, Nov 26 2016
STATUS
approved