|
|
A108333
|
|
Numbers k such that the string 97101k is prime.
|
|
1
|
|
|
37, 47, 77, 91, 139, 143, 149, 163, 187, 217, 241, 259, 271, 281, 311, 341, 371, 373, 391, 401, 409, 413, 437, 463, 479, 481, 493, 509, 527, 547, 583, 601, 619, 623, 629, 643, 679, 689, 707, 709, 721, 731, 743, 769, 779, 811, 821, 847, 881, 919, 931, 973, 997, 1043, 1061, 1073, 1081, 1103
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
k=37 is in the sequence because 97101k =9710137 is prime.
k=217 is in the sequence because 97101k =97101217 is prime.
|
|
MATHEMATICA
|
Select[Range[1200], PrimeQ[97101*10^IntegerLength[#]+#]&] (* Harvey P. Dale, Jan 17 2015 *)
|
|
PROG
|
(Magma) [ n: n in [1..1750] | IsPrime(Seqint(Intseq(n) cat [1, 0, 1, 7, 9])) ]; // Vincenzo Librandi, Feb 02 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|