A014976 Successive locations of zeros in decimal expansion of Pi (where locations 1, 2, 3, ... correspond to digits 3, 1, 4, ...).
33, 51, 55, 66, 72, 78, 86, 98, 107, 117, 122, 129, 133, 147, 160, 165, 168, 177, 196, 208, 246, 249, 265, 271, 288, 292, 308, 309, 312, 328, 331, 341, 358, 361, 362, 367, 370, 376, 399, 404, 409, 422, 444, 452, 494, 514, 521, 524, 544, 546, 553, 558, 562, 597, 602, 603, 604, 619, 639, 658
Offset: 1
Links
Crossrefs
Programs
-
Maple
f := proc(n) if pi[n]=0 then n fi; end;[seq(f(i),i=1..2000)]; # where pi is an array with the digits of Pi. - Simon Plouffe [Corrected by Neven Juric, Jul 08 2008]
-
Mathematica
Flatten[ Position[ RealDigits[Pi, 10, 660] [[1]], 0]] (* Robert G. Wilson v, Mar 19 2004 *)
-
PARI
A014976_upto(N=999)={localprec(N+20); select(d->!d, digits(Pi\10^-N), 1)} \\ Returns a "Vecsmall": use Vec(...) if needed, or alternatively: {...; [i|i<-[1..#N=digits(Pi\10^-N)], !N[i]]}. - M. F. Hasler, Jul 28 2024
Formula
a(n) = A037008(n) + 1. - Georg Fischer, May 31 2021
Extensions
More terms from Scott Lindhurst (ScottL(AT)alumni.princeton.edu)