OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
extend:= proc(n) local d, x;
d:= n mod 10;
seq(10*n+x, x = select(t -> t >= 0 and t <= 9, [d-9, d-8, d+8, d+9]))
end proc:
R:= 2, 3, 5, 7: count:= 4:
T:= [$1..9]:
for d from 2 while count < 100 do
T:= map(extend, T);
V:= select(isprime, T);
count:= count+nops(V);
R:= R, op(V);
od:
R; # Robert Israel, Oct 17 2023
MATHEMATICA
Join[{2, 3, 5, 7}, Select[FromDigits/@Tuples[{0, 1, 8, 9}, 10], PrimeQ[#] && AllTrue[ Abs[ Differences[ IntegerDigits[#]]], #>7&]&]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 08 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1999
EXTENSIONS
More terms from Naohiro Nomoto, Jul 28 2001
STATUS
approved