%I A109513
%S A109513 1,19,94,3542,7295,318320,927130,939240
%N A109513 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 (after 
               the decimal point in Pi).
%C A109513 The next Pithy number is greater than 10^7
%H A109513 David G. Andersen, <a href="http://www.angio.net/pi/piquery">The Pi-Search 
               Page</a>.
%e A109513 1 is a term because the first digit in Pi (after the decimal point) is 
               1. Number 19 is a term because the 19th pair (after the decimal point) 
               in Pi is 19. (cf. 3.14159265358979323846264338327950288419...)
%t A109513 PithyNumbers[m_] := Module[{cc = m(10^m)+m, sol, aa}, sol = Partition[RealDigits[Pi, 
               10, cc] // First // Rest, m]; Do[aa = FromDigits[sol[[i]]]; If[aa==i, 
               Print[{i, aa}]], {i, Length[sol]}];] Example: PithyNumbers[4] produces 
               all 4-digit Pithy numbers
%Y A109513 Cf. A109514, A057679, A057680.
%Y A109513 Sequence in context: A118294 A157098 A037238 this_sequence A041696 A080187 
               A142170
%Y A109513 Adjacent sequences: A109510 A109511 A109512 this_sequence A109514 A109515 
               A109516
%K A109513 base,more,nonn
%O A109513 0,2
%A A109513 Colin Rose (colin(AT)tri.org.au), Jul 01 2005