%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