|
Search: id:A068710
|
|
|
| A068710 |
|
Primes whose digits can be arranged in increasing cyclic order - to form a substring of 123456789012345678901234567890... |
|
+0
1
|
|
| 2, 3, 5, 7, 23, 43, 67, 89, 109, 809, 1423, 2143, 2341, 2543, 4231, 4253, 4523, 4567, 4657, 5647, 5867, 6547, 6857, 10289, 10789, 10987, 12809, 18097, 19087, 20981, 21089, 25463, 25643, 28019, 28109, 28901, 36457, 45263, 45673, 45763, 46523
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
2143 is a term as its digits can be arranged as 1234.
|
|
MATHEMATICA
|
f[n_] := Block[{a = Sort[IntegerDigits[n]], b, k, s = "01234567890123456789"}, k = 1; While[ a[[k + 1]] - a[[k]] == 1, k++ ]; b = ToString[ FromDigits[ RotateLeft[a, k]]]; If[ Length[a] == StringLength[b], StringPosition[s, b]]]; Prime[ Select[ Range[10000], f[ Prime[ # ]] != {} &]] (* This code is only good up to 10^10*)
|
|
CROSSREFS
|
Cf. A068708, A068709.
Sequence in context: A106711 A048398 A059170 this_sequence A120805 A096265 A056041
Adjacent sequences: A068707 A068708 A068709 this_sequence A068711 A068712 A068713
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy and V.P.Singh (amarnath_murthy(AT)yahoo.com), Mar 05 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 20 2002
|
|
|
Search completed in 0.002 seconds
|
