|
|
A046883
|
|
Automorphic primes: primes p such that p is k-th prime and p ends in k.
|
|
10
|
|
|
17, 99551, 4303027, 6440999, 14968819, 95517973, 527737957, 1893230839, 1246492090901, 12426836115943, 21732382677641, 154895576080181, 2677628540590583, 133475456543097857, 820396537622790811
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
p(7)=17, p(9551)=99551, p(303027)=4303027, p(440999)=6440999, p(968819)=14968819, p(5517973)=95517973.
|
|
MATHEMATICA
|
Do[ If[ Mod[ Prime[n], 10^Ceiling[ Log[10, n]]] == n, Print[Prime[n]]], {n, 1, 100000000, 2}] (* Robert G. Wilson v, May 21 2004 *) (* fixed by Ivan N. Ianakiev, Apr 15 2022 *)
fQ[n_]:=StringPosition[ToString[Prime[n]], ToString[n]][[1, 2]]==
IntegerLength[Prime[n]]; Prime[Select[Range[1, 5517973, 2], fQ]]//Quiet (* Ivan N. Ianakiev, Apr 15 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nice,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|