A048419 Primes whose consecutive digits differ by 7 or 8.

2, 3, 5, 7, 19, 29, 181, 191, 919, 929, 8081, 8191, 9181, 18181, 18191, 19181, 29191, 80819, 81919, 81929, 91807, 181919, 191929, 808081, 1918181, 8070707, 8081929, 8191819, 9192929, 18080807, 18081919, 18192929, 19180807, 19192919, 19291807

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-8, d-7, d+7, d+8]))
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

Select[Prime[Range[13*10^5]], SubsetQ[{7, 8}, Abs[ Differences[ IntegerDigits[#]]]]&] (* Harvey P. Dale, Jan 20 2015 *)

Crossrefs

Cf. A048413-A048420.

Sequence in context: A230041 A068803 A184902 * A087562 A375095 A154525

Adjacent sequences: A048416 A048417 A048418 * A048420 A048421 A048422

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1999

Status

approved