|
Search: id:A007597
|
|
|
| A007597 |
|
Strobogrammatic primes.
(Formerly M4800)
|
|
+0
9
|
|
| 11, 101, 181, 619, 16091, 18181, 19861, 61819, 116911, 119611, 160091, 169691, 191161, 196961, 686989, 688889, 1008001, 1068901, 1160911, 1180811, 1190611, 1191611, 1681891, 1690691, 1880881, 1881881, 1898681, 1908061, 1960961, 1990661
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Primes which are invariant under a 180 degree rotation.
|
|
REFERENCES
|
"Strobogrammatic Primes and Prime Rotative Twins" by Charles W. Trigg, J. Rec. Math., 15 (1983), 281-282.
|
|
LINKS
|
C. K. Caldwell, The Prime Glossary, Strobogrammatic
Wikipedia, Strobogrammatic prime
|
|
MATHEMATICA
|
lst = {}; fQ[n_] := Block[{allset = {0, 1, 6, 8, 9}, id = IntegerDigits@n}, Union@ Join[id, allset] == allset && Reverse[id /. {6 -> 9, 9 -> 6}] == id]; Do[ If[ PrimeQ@n && fQ@n, AppendTo[lst, n]], {n, 2000000}]; lst (* Robert G. Wilson v (rgwv(at)rgwv.com), Feb 27 2007 *)
|
|
CROSSREFS
|
Cf. A000787.
Adjacent sequences: A007594 A007595 A007596 this_sequence A007598 A007599 A007600
Sequence in context: A089716 A084987 A083185 this_sequence A061247 A068188 A032592
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
njas, Robert G. Wilson v (rgwv(AT)rgwv.com)
|
|
EXTENSIONS
|
More terms from David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
Search completed in 0.002 seconds
|
