|
|
A102527
|
|
Numbers k such that k111111 is prime.
|
|
2
|
|
|
29, 34, 61, 71, 80, 85, 89, 94, 101, 103, 106, 107, 115, 118, 122, 124, 128, 131, 149, 158, 163, 166, 193, 194, 199, 205, 212, 233, 248, 251, 256, 265, 268, 277, 290, 316, 323, 326, 328, 346, 347, 355, 356, 361, 365, 367, 382, 383, 386, 389, 394, 398, 404, 424, 430, 431, 436, 439, 452, 454, 457
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
If k=29, then k111111 = 29111111 (prime).
If k=101, then k111111 = 101111111 (prime).
If k=122, then k111111 = 122111111 (prime).
|
|
MATHEMATICA
|
Select[Range[500], PrimeQ[FromDigits[Join[IntegerDigits[#], {1, 1, 1, 1, 1, 1} ]]]&] (* Harvey P. Dale, Aug 22 2011 *)
Select[Range[500], PrimeQ[#*10^6+111111]&] (* Harvey P. Dale, Nov 30 2022 *)
|
|
PROG
|
(Magma) [ n: n in [1..700] | IsPrime(Seqint([1, 1, 1, 1, 1, 1] cat Intseq(n))) ]; // Vincenzo Librandi, Feb 04 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|