%I #10 Oct 17 2023 18:20:27
%S 2,3,5,7,17,29,71,181,281,293,607,829,929,2939,3929,8171,8293,9281,
%T 9293,18181,28181,39293,60607,70607,70717,71707,81707,81817,82939,
%U 170707,171707,181717,182929,281717,392929,393929,607181,707071,718171
%N Primes whose consecutive digits differ by 6 or 7.
%H Robert Israel, <a href="/A048418/b048418.txt">Table of n, a(n) for n = 1..10000</a>
%p extend:= proc(n) local d,x;
%p d:= n mod 10;
%p seq(10*n+x, x = select(t -> t >= 0 and t <= 9, [d-7,d-6,d+6,d+7]))
%p end proc:
%p R:= 2,3,5,7: count:= 4:
%p T:= [$1..9]:
%p for d from 2 while count < 100 do
%p T:= map(extend,T);
%p V:= select(isprime,T);
%p count:= count+nops(V);
%p R:= R, op(V);
%p od:
%p R; # _Robert Israel_, Oct 17 2023
%Y Cf. A048413-A048420.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Apr 15 1999
|