[go: up one dir, main page]

login
A014976
Successive locations of zeros in decimal expansion of Pi (where locations 1, 2, 3, ... correspond to digits 3, 1, 4, ...).
12
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,1
FORMULA
a(n) = A037008(n) + 1. - Georg Fischer, May 31 2021
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 *)
PROG
(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
CROSSREFS
Cf. A000796 (decimal expansion (or digits) of Pi).
Cf. A053745 - A053753 (similar for digits 1 through 9).
Cf. A037008 for a variant with all values decreased by 1.
See A088563 for primes in this sequence.
Sequence in context: A349551 A204381 A034815 * A364286 A109407 A204374
KEYWORD
nonn,base
AUTHOR
Bagirath R. Krishnamachari (bagi(AT)callisto.miel.mot.com)
EXTENSIONS
More terms from Scott Lindhurst (ScottL(AT)alumni.princeton.edu)
STATUS
approved