A048415 Primes whose consecutive digits differ by 3 or 4.

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

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-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:
R; # Robert Israel, Oct 17 2023

Crossrefs

Cf. A048413-A048420.

Sequence in context: A278967 A217070 A274678 * A029974 A065727 A090713

Adjacent sequences: A048412 A048413 A048414 * A048416 A048417 A048418

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1999

Status

approved