login
A048414
Primes whose consecutive digits differ by 2 or 3.
2
2, 3, 5, 7, 13, 31, 41, 47, 53, 79, 97, 131, 241, 257, 313, 353, 463, 479, 631, 641, 647, 757, 797, 853, 857, 863, 1303, 2531, 2579, 3631, 3697, 4241, 4253, 5303, 5741, 5857, 5869, 6353, 6469, 6857, 6863, 6869, 7963, 8641, 8647, 9631, 9697, 13147, 13697
OFFSET
1,1
LINKS
MAPLE
extend:= proc(n) local d, x;
d:= n mod 10;
seq(10*n+x, x = select(t -> t >= 0 and t <= 9, [d-3, d-2, d+2, d+3]))
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1999
STATUS
approved