|
|
A102373
|
|
Numbers k such that k33333 is prime.
|
|
0
|
|
|
7, 11, 26, 28, 32, 34, 37, 44, 49, 56, 62, 64, 70, 85, 95, 103, 106, 110, 119, 121, 125, 127, 130, 134, 140, 142, 154, 166, 167, 170, 176, 181, 209, 215, 217, 236, 259, 275, 277, 281, 293, 296, 307, 313, 319, 320, 323, 329, 337, 343, 347, 349, 370, 376, 379, 382, 392, 400, 407, 412, 415, 424, 431
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
If k=7, then k33333 = 733333 (prime).
If k=49, then k33333 = 4933333 (prime).
If k=95, then k33333 = 9533333 (prime).
|
|
MATHEMATICA
|
Select[Range[500], PrimeQ[FromDigits[Join[IntegerDigits[#], {3, 3, 3, 3, 3} ]]]&] (* Harvey P. Dale, Jun 20 2011 *)
|
|
PROG
|
(Magma) [ n: n in [1..700] | IsPrime(Seqint([3, 3, 3, 3, 3] cat Intseq(n))) ]; // Vincenzo Librandi, Feb 04 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|