|
Search: id:A136583
|
|
| |
| |
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
rd = RealDigits[Sqrt[10], 10, 10^5][[1]]; Do[ If[ PrimeQ@ FromDigits@ Take[rd, n], Print@n], {n, 10^5}] - Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 20 2008
|
|
CROSSREFS
|
Cf. A040467, A136582.
Sequence in context: A104310 A001114 A107615 this_sequence A141631 A077131 A086741
Adjacent sequences: A136580 A136581 A136582 this_sequence A136584 A136585 A136586
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Lekraj Beedassy (blekraj(AT)yahoo.com), Jan 09 2008
|
|
EXTENSIONS
|
a(6) - a(8) from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 20 2008
|
|
|
Search completed in 0.002 seconds
|
