Earl's Sequence

Author

Eric W. Weisstein
April 11, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/EarlsSequence.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/EarlsSequence.html.

©2006 Wolfram Research, Inc. except for portions noted otherwise

Derivation

dig=StringJoin@@@Table[ToString[n],{n,10},{n}]

trinity

pi=StringDrop[ToString[N[Pi,10^8]],2];//Timing

prism

pi=StringDrop[ToString[N[Pi,2*^8]],2];//Timing

StringLength[pi]

If[#==={},{},#[[1,1]]]&/@(StringPosition[pi,#,1]&/@dig)