login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A068148 Primes in which neighboring digits differ at most by 1. 3
2, 3, 5, 7, 11, 23, 43, 67, 89, 101, 109, 211, 223, 233, 433, 443, 677, 787, 877, 887, 1009, 1109, 1123, 1223, 2111, 2221, 2333, 3221, 3323, 3343, 3433, 4567, 5443, 7789, 7877, 8887, 8999, 9001, 9011, 9887, 9901, 10009, 10099, 10111, 10909, 10987, 12101, 12109 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Neighbors of 9 are 0 and 8 and 9.

LINKS

T. D. Noe, Table of n, a(n) for n=1..1000

MATHEMATICA

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} ]

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

PROG

(Haskell)

a068148 n = a068148_list !! (n-1)

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

-- Reinhard Zumkeller, Feb 14 2015

CROSSREFS

Cf. A010051, subsequence of A032981.

Sequence in context: A158217 A030284 A252791 * A036344 A165802 A107798

Adjacent sequences:  A068145 A068146 A068147 * A068149 A068150 A068151

KEYWORD

base,easy,nonn,nice

AUTHOR

Amarnath Murthy, Feb 23 2002

EXTENSIONS

Edited and extended by Robert G. Wilson v and Sascha Kurz, Mar 01 2002

Corrected by T. D. Noe, Feb 15 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 11 20:03 EDT 2020. Contains 335652 sequences. (Running on oeis4.)