%I A109514
%S A109514 5,9696,19781,199898
%N A109514 Let n be an integer consisting of m digits. Then n is a Pithy number 
               if the n-th m-tuple in the decimal digits of Pi is string n.
%C A109514 The next term is greater than 10^7
%H A109514 David G. Andersen, <a href="http://www.angio.net/pi/piquery">The Pi-Search 
               Page</a>.
%e A109514 5 is a term because the 5th single digit in Pi is 5. Number 9696 is a 
               term because the 9696th quadruplet in the decimal digits of Pi is 
               9696. (cf. 3.14159...)
%t A109514 PithyNumbersWith3[m_] := Module[{cc = m(10^m)+m, sol, aa}, sol = Partition[RealDigits[Pi, 
               10, cc] // First, m]; Do[aa = FromDigits[sol[[i]]]; If[aa==i, Print[{i, 
               aa}]], {i, Length[sol]}];] Example: PithyNumbersWith3[5] produces 
               all 5-digit Pithy numbers
%Y A109514 Cf. A109513, A057679, A057680.
%Y A109514 Sequence in context: A067816 A076629 A052027 this_sequence A022918 A058051 
               A089989
%Y A109514 Adjacent sequences: A109511 A109512 A109513 this_sequence A109515 A109516 
               A109517
%K A109514 base,more,nonn
%O A109514 0,1
%A A109514 Colin Rose (colin(AT)tri.org.au), Jul 01 2005