|
|
A067248
|
|
Numbers k such that the digits of prime(k) end in k.
|
|
5
|
|
|
7, 9551, 303027, 440999, 968819, 5517973, 27737957, 93230839, 46492090901, 426836115943, 732382677641, 4895576080181, 77628540590583, 3475456543097857, 20396537622790811
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
Prime(968819) = 14968819 which ends in 968819, so 968819 is a term of the sequence.
|
|
MATHEMATICA
|
(* returns true if a ends with b, false otherwise *) f[a_, b_] := Module[{c, d, e, g, h, i, r}, r = False; c = ToString[a]; d = ToString[b]; e = StringLength[c]; g = StringPosition[c, d]; h = Length[g]; If[h > 0, i = g[[h]]; If[i[[2]] == e, r = True]]; r]; Do[If[f[Prime[n], n], Print[n]], {n, 1, 10^6}]
|
|
CROSSREFS
|
Corresponding primes are in A046883.
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|