This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A173647 #6 Mar 30 2012 18:35:52 %S A173647 17,173,173245471460063,1732454714600633 %N A173647 Primes found in decimal expansion of 1/EulerGamma. %C A173647 Primes found in A098907. %e A173647 1/EulerGamma =1.732454714600633473583... so a(1)=17 ; a(2) =173,... %p A173647 Digits := 100; n0 := evalf(1/gamma); for i from 1 to 500 do x := trunc(10^i*n0): %p A173647 if isprime(x) then printf(`%d, `, x): fi: od: %Y A173647 Cf. A001620 A098907 %K A173647 nonn,base %O A173647 1,1 %A A173647 _Michel Lagneau_, Nov 24 2010