A067248 Numbers k such that the digits of prime(k) end in k.
7, 9551, 303027, 440999, 968819, 5517973, 27737957, 93230839, 46492090901, 426836115943, 732382677641, 4895576080181, 77628540590583, 3475456543097857, 20396537622790811
Offset: 1
Examples
Prime(968819) = 14968819 which ends in 968819, so 968819 is a term of the sequence.
Programs
-
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}]
Extensions
a(6) from Zak Seidov, Sep 27 2002
a(7)-a(8) from Farideh Firoozbakht, Jan 01 2007
a(9)-a(12) from Donovan Johnson, May 08 2010
a(13)-a(14) from Chai Wah Wu, Apr 05 2021
a(15) from Chai Wah Wu, Apr 07 2021
Comments