|
Search: id:A120804
|
|
|
| A120804 |
|
Primes with consecutive digits descending. |
|
+0
5
|
|
| 2, 3, 5, 7, 43, 76543, 4321098765432109876543210987654321098765432109876543210987654321, 43210987654321098765432109876543210987654321098765432109876543210987654321098765432109876543210987654321098765432109876543210987654321098765432109876543210987654321098765432109
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Digits can be in descending order. After 0 comes 9.
|
|
MATHEMATICA
|
f[n_] := Block[{d = Reverse@ Range@n, t = Table[1, {n}]}, Select[ Drop[ Union@ Flatten@ Table[ FromDigits[ Mod[d + i*t, 10]], {i, 10}], 2], PrimeQ@# &]]; Array[f, 1000] // Flatten
|
|
CROSSREFS
|
Cf. A006055, A120805.
Sequence in context: A092066 A028981 A052016 this_sequence A118842 A048402 A090717
Adjacent sequences: A120801 A120802 A120803 this_sequence A120805 A120806 A120807
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 05 2006
|
|
|
Search completed in 0.002 seconds
|
