1,1

5 is a term because 5 is the 5th digit of pi (3.1415)

StringsinPi[m_] := Module[{cc = 10^m + m, sol, aa}, sol = Partition[RealDigits[Pi, 10, cc] // First, m, 1]; Do[aa = FromDigits[sol[[i]]]; If[aa==i, Print[{i, aa}]], {i, Length[sol]}]; ] For example, StringsinPi[6] returns all 6-digit members of the sequence. - Colin Rose (colin(AT)tri.org.au), Mar 15 2006

Cf. A057680.

Cf. A109514.

Adjacent sequences: A057676 A057677 A057678 this_sequence A057680 A057681 A057682

Sequence in context: A123591 A133381 A038027 this_sequence A123751 A067502 A067509

nonn,base,more

Mike Keith (domnei(AT)aol.com), Oct 19 2000

a(4)-a(6) from Colin Rose (colin(AT)tri.org.au), Mar 15 2006