This document supports ClickToCopy of the code for Mathematica CDF Edition users.
무한소수의 숫자 배열 탐색 ​
​원주율이 품은 나의 생일

1. 원주율

1.1. 근삿값

In[]:=
N[Pi,500]
Out[]=
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491

1.1. 텍스트 문서로 저장

In[]:=
Export["pi.txt",N[Pi,1000000]]
Out[]=
pi.txt

2. 원주율의 숫자배열 탐색

2.1. 탐색범위 : 100자리

In[]:=
digit=100;​​pi=First[RealDigits[Pi,10,digit]]
Out[]=
{3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6,2,6,4,3,3,8,3,2,7,9,5,0,2,8,8,4,1,9,7,1,6,9,3,9,9,3,7,5,1,0,5,8,2,0,9,7,4,9,4,4,5,9,2,3,0,7,8,1,6,4,0,6,2,8,6,2,0,8,9,9,8,6,2,8,0,3,4,8,2,5,3,4,2,1,1,7,0,6,7}
In[]:=
sequence={6,4,0,6,2,8};​​SequencePosition[First[RealDigits[Pi,10,digit]],sequence]
Out[]=
{{70,75}}

2.1. 탐색범위 : 1,000만 자리

In[]:=
digit=10000000;​​pi=First[RealDigits[Pi,10,digit]];
  • 2.1.1. 숫자배열 : 740912
    • In[]:=
    sequence={7,4,0,9,1,2};​​SequencePosition[First[RealDigits[Pi,10,digit]],sequence]
    Out[]=
    {{1137374,1137379},{1877906,1877911},{2538421,2538426},{3126451,3126456},{4295547,4295552},{4668072,4668077},{4922785,4922790},{5146860,5146865},{5525315,5525320},{6218582,6218587},{7807851,7807856},{9367814,9367819}}
  • 2.1.2. 숫자배열 : 460119
    • In[]:=
    sequence={4,6,0,1,1,9};​​SequencePosition[First[RealDigits[Pi,10,digit]],sequence]
    Out[]=
    {}

    2.2. 탐색범위 : 2,000만 자리

    In[]:=
    digit=20000000;​​pi=First[RealDigits[Pi,10,digit]];
  • 2.2.1. 숫자배열 : 460119
    • In[]:=
    sequence={4,6,0,1,1,9};​​SequencePosition[First[RealDigits[Pi,10,digit]],sequence]
    Out[]=
    {{10847885,10847890},{11551168,11551173},{12717016,12717021},{12954455,12954460},{12963491,12963496},{13949242,13949247},{14488243,14488248},{14721543,14721548},{14784325,14784330},{15870860,15870865},{16518777,16518782}}
    END