A048416 Primes whose consecutive digits differ by 4 or 5.

2, 3, 5, 7, 37, 59, 61, 73, 83, 151, 373, 383, 727, 1627, 3727, 4049, 4051, 4951, 5051, 5059, 6151, 15161, 15959, 16273, 26161, 26261, 37273, 40483, 48383, 61627, 62627, 72727, 73727, 73849, 83737, 84059, 94049, 94837, 94849, 94949, 94951

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-5, d-4, d+4, d+5]))
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: A065727 A090713 A090912 * A048401 A288718 A289861

Adjacent sequences: A048413 A048414 A048415 * A048417 A048418 A048419

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1999

Status

approved