|
|
A048415
|
|
Primes whose consecutive digits differ by 3 or 4.
|
|
1
|
|
|
2, 3, 5, 7, 37, 41, 47, 59, 73, 151, 251, 263, 269, 373, 859, 3037, 3041, 3637, 4159, 5147, 5851, 6263, 6269, 6373, 6959, 7369, 14159, 14737, 14741, 14747, 14851, 15259, 15263, 15269, 15859, 15959, 25147, 25841, 25847, 25951, 25969, 26251
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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-4, d-3, d+3, d+4]))
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:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|