login
Primes whose consecutive digits differ by 5 or 6.
1

%I #8 Oct 10 2019 23:16:22

%S 2,3,5,7,17,61,71,83,271,283,383,617,727,827,839,7283,16061,27271,

%T 27283,28283,28393,38393,39383,49393,60617,61717,72727,82727,83939,

%U 93827,93949,94949,161717,171617,172717,272717,282827,283949,382727

%N Primes whose consecutive digits differ by 5 or 6.

%H Harvey P. Dale, <a href="/A048417/b048417.txt">Table of n, a(n) for n = 1..100</a>

%t cd56Q[n_]:=Module[{d=Abs[Differences[IntegerDigits[n]]]},Max[d]<7 && Min[ d]>4]; Select[Prime[Range[33000]],cd56Q] (* _Harvey P. Dale_, Oct 02 2012 *)

%Y Cf. A048413-A048420.

%K nonn,base

%O 1,1

%A _Patrick De Geest_, Apr 15 1999