OFFSET
1,1
COMMENTS
No digits are 0. Last digit is not 1.
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
EXAMPLE
a(7) = 113 is a term because 113, 113 mod 100 = 13, 113 mod 10 = 3, and 113 mod 3 = 2 are all prime.
MAPLE
filter:= proc(p) local L;
if not isprime(p) then return false fi;
L:= convert(p, base, 10);
if has(0, L) then return false fi;
andmap(i -> isprime(p mod (L[i]*10^(i-1))), [$1..nops(L)])
end proc:
select(filter, [seq(i, i=13..10000, 2)]);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. M. Bergot and Robert Israel, Mar 15 2020
STATUS
approved