cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A067248 Numbers k such that the digits of prime(k) end in k.

This page as a plain text file.
%I A067248 #24 Apr 07 2021 20:37:51
%S A067248 7,9551,303027,440999,968819,5517973,27737957,93230839,46492090901,
%T A067248 426836115943,732382677641,4895576080181,77628540590583,
%U A067248 3475456543097857,20396537622790811
%N A067248 Numbers k such that the digits of prime(k) end in k.
%C A067248 There is no further term up to 115000000. - _Farideh Firoozbakht_, Jan 01 2007
%C A067248 a(13) > pi(10^15). - _Donovan Johnson_, May 08 2010
%e A067248 Prime(968819) = 14968819 which ends in 968819, so 968819 is a term of the sequence.
%t A067248 (* 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}]
%Y A067248 Corresponding primes are in A046883.
%Y A067248 Cf. A046883, A068575, A075902.
%K A067248 base,nonn
%O A067248 1,1
%A A067248 _Joseph L. Pe_, Feb 20 2002
%E A067248 a(6) from _Zak Seidov_, Sep 27 2002
%E A067248 a(7)-a(8) from _Farideh Firoozbakht_, Jan 01 2007
%E A067248 a(9)-a(12) from _Donovan Johnson_, May 08 2010
%E A067248 a(13)-a(14) from _Chai Wah Wu_, Apr 05 2021
%E A067248 a(15) from _Chai Wah Wu_, Apr 07 2021