A068148 - OEIS

%I #18 Mar 13 2023 07:19:31

%S 2,3,5,7,11,23,43,67,89,101,109,211,223,233,433,443,677,787,877,887,

%T 1009,1109,1123,1223,2111,2221,2333,3221,3323,3343,3433,4567,5443,

%U 7789,7877,8887,8999,9001,9011,9887,9901,10009,10099,10111,10909,10987,12101,12109

%N Primes in which neighboring digits differ at most by 1.

%C Neighbors of 9 are 0 and 8 and 9.

%H T. D. Noe, <a href="/A068148/b068148.txt">Table of n, a(n) for n=1..1000</a>

%t Do[a = IntegerDigits[ Prime[n]]; k = 1; l = Length[a]; While[k < l && (Abs[a[[k]]- a[[k + 1]]] < 2 || Abs[a[[k]] - a[[k + 1]]] > 8), k++ ]; If[k == l, Print[ Prime[n]]], {n, 1, 10^4} ]

%t Select[Prime[Range[1500]],Max[Abs[Differences[IntegerDigits[#]]]/.{9->1}] < 2&] (* _Harvey P. Dale_, Jan 31 2012 *)

%o (Haskell)

%o a068148 n = a068148_list !! (n-1)

%o a068148_list = filter ((== 1) . a010051') a032981_list

%o -- _Reinhard Zumkeller_, Feb 14 2015

%Y Cf. A010051, subsequence of A032981.

%K base,easy,nonn,nice

%O 1,1

%A _Amarnath Murthy_, Feb 23 2002

%E Edited and extended by _Robert G. Wilson v_ and _Sascha Kurz_, Mar 01 2002

%E Corrected by _T. D. Noe_, Feb 15 2008