|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
|
|
|
FORMULA
|
|
|
|
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. A037008 for a variant with all values decreased by 1.
See A088563 for primes in this sequence.
|
|
|
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
|
| |
|
|
