|
Search: id:A068148
|
|
|
| A068148 |
|
Primes in which neighboring digits differ at most by 1. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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} ]
|
|
CROSSREFS
|
Sequence in context: A068853 A158217 A030284 this_sequence A036344 A165802 A107798
Adjacent sequences: A068145 A068146 A068147 this_sequence A068149 A068150 A068151
|
|
KEYWORD
|
base,easy,nonn,nice
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Feb 23 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com) and Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Mar 01 2002
Corrected by T. D. Noe, Feb 15 2008
|
|
|
Search completed in 0.002 seconds
|
