login
Successive locations of zeros in decimal expansion of Pi (where locations 1, 2, 3, ... correspond to digits 3, 1, 4, ...).
12

%I #27 Jul 28 2024 16:55:24

%S 33,51,55,66,72,78,86,98,107,117,122,129,133,147,160,165,168,177,196,

%T 208,246,249,265,271,288,292,308,309,312,328,331,341,358,361,362,367,

%U 370,376,399,404,409,422,444,452,494,514,521,524,544,546,553,558,562,597,602,603,604,619,639,658

%N Successive locations of zeros in decimal expansion of Pi (where locations 1, 2, 3, ... correspond to digits 3, 1, 4, ...).

%H Vincenzo Librandi, <a href="/A014976/b014976.txt">Table of n, a(n) for n = 1..1000</a>

%H <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a>

%F a(n) = A037008(n) + 1. - _Georg Fischer_, May 31 2021

%p 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]

%t Flatten[ Position[ RealDigits[Pi, 10, 660] [[1]], 0]] (* _Robert G. Wilson v_, Mar 19 2004 *)

%o (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

%Y Cf. A000796 (decimal expansion (or digits) of Pi).

%Y Cf. A053745 - A053753 (similar for digits 1 through 9).

%Y Cf. A037008 for a variant with all values decreased by 1.

%Y See A088563 for primes in this sequence.

%K nonn,base

%O 1,1

%A Bagirath R. Krishnamachari (bagi(AT)callisto.miel.mot.com)

%E More terms from Scott Lindhurst (ScottL(AT)alumni.princeton.edu)