|
MATHEMATICA
|
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
|