|
| |
|
|
A110097
|
|
Numbers n such that the string 444n is prime.
|
|
0
| |
|
|
1, 7, 17, 49, 53, 83, 91, 97, 109, 113, 121, 127, 131, 151, 167, 173, 179, 181, 187, 209, 253, 271, 281, 287, 289, 293, 307, 341, 343, 347, 349, 401, 403, 421, 443, 449, 461, 463, 469, 473, 487, 517, 523, 527, 529, 539, 547, 553, 557, 569, 589, 607, 623, 637
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| If n=113 then 444n = 444113 (prime).
|
|
|
MATHEMATICA
| Select[Range[1000], PrimeQ[FromDigits[Join[{4, 4, 4}, IntegerDigits[#]]]]&]
|
|
|
CROSSREFS
| Sequence in context: A195905 A104164 A192244 * A179262 A018672 A045821
Adjacent sequences: A110094 A110095 A110096 * A110098 A110099 A110100
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Sep 05 2005
|
|
|
EXTENSIONS
| More terms from Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Mar 27 2010
Mathematica program provided by Harvey P. Dale, Dec. 2, 2010
|
| |
|
|
