|
|
A103965
|
|
Numbers n such that the string n10n is the decimal expansion of a prime number.
|
|
0
|
|
|
9, 27, 41, 81, 111, 113, 117, 183, 191, 219, 231, 261, 279, 281, 309, 321, 339, 363, 377, 399, 401, 411, 429, 449, 461, 467, 477, 479, 497, 503, 513, 539, 549, 567, 603, 633, 653, 659, 689, 693, 707, 723, 731, 737, 747, 773, 843, 849, 887, 891, 911, 917
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
n=9 is in the sequence because n10n = 9109 is prime.
n=113 is in the sequence because n10n = 11310113 is prime.
n=219 is in the sequence because n10n = 21910219 is prime.
|
|
MATHEMATICA
|
n10pQ[n_]:=Module[{idn=IntegerDigits[n]}, PrimeQ[FromDigits[Join[idn, {1, 0}, idn]]]]
|
|
PROG
|
(Magma) [ n: n in [0..1000] | IsPrime(Seqint(Intseq(n) cat [0, 1] cat Intseq(n))) ]; // Klaus Brockhaus, Feb 03 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|