A067928 Numbers n such that the digits of the n-th prime begin with n.

6455, 6456, 6457, 6459, 6460, 6466

Offset

1,1

Comments

Prime(6466) is 64661, which begins with 6466, so 6466 is a term of the sequence.

The next term is greater than 4*10^41. - Robert Gerbicz, Sep 05 2002

Links

Table of n, a(n) for n=1..6.

Mathematica

(*returns true if a begins with b, false o.w.*) f[a_, b_] := Module[{c, d, e, g, h, i, r}, r = False; c = ToString[a]; d = ToString[b]; g = StringPosition[c, d]; h = Length[g]; If[h > 0, i = g[[h]]; If[i[[1]] == 1, r = True]]; r]; Do[If[f[Prime[n], n], Print[n]], {n, 1, 10^5} ]
Select[Range[7000], Take[IntegerDigits[Prime[#]], IntegerLength[#]] == IntegerDigits[ #]&] (* Harvey P. Dale, Mar 05 2016 *)

Crossrefs

Sequence in context: A105377 A248998 A256090 * A166223 A206538 A288083

Adjacent sequences: A067925 A067926 A067927 * A067929 A067930 A067931

Keyword

base,more,nonn

Author

Joseph L. Pe, Feb 22 2002

Status

approved