|
%I #23 Dec 18 2023 08:26:25
%S 5,9696,19781,199898,687784863,4518673035,7526556436
%N Let k be an integer consisting of m digits. Then k is a Pithy number if the k-th m-tuple in the decimal digits of Pi is k.
%C A near-miss '02805451' occurs at position 2805451. - _Vaclav Kotesovec_, Feb 19 2020
%H David G. Andersen, <a href="http://www.angio.net/pi/piquery">The Pi-Search Page</a>.
%e 5 is a term because the 5th single digit in Pi is 5.
%e 9696 is a term because the 9696th quadruplet in Pi is 9696.
%t 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]}];]
%t (* Example: PithyNumbersWith3[5] produces all 5-digit Pithy numbers *)
%Y Cf. A109513, A057679, A057680.
%K base,more,nonn
%O 1,1
%A _Colin Rose_, Jul 01 2005
%E a(5)-a(7) from _J. Volkmar Schmidt_, Dec 17 2023
| 