login
A064823
Number of indices 1 <= i <= n with A000796(i)=A000796(n).
3
1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 3, 1, 2, 1, 3, 3, 2, 4, 2, 2, 2, 3, 3, 3, 5, 6, 3, 7, 4, 2, 4, 4, 1, 5, 4, 5, 4, 3, 5, 3, 4, 4, 6, 8, 7, 8, 9, 4, 5, 5, 2, 6, 6, 6, 3, 9, 5, 5, 10, 6, 7, 7, 11, 7, 10, 4, 6, 7, 6, 5, 8, 5, 6, 8, 8, 7, 9, 6, 9, 12, 13, 10, 8, 10, 11, 7, 11, 9, 12, 11, 8, 12, 10, 12, 7, 8, 7
OFFSET
1,4
MATHEMATICA
terms = 100; Clear[cnt]; cnt[_] = n = 0;
Do[a[++n] = ++cnt[k], {k, RealDigits[Pi, 10, terms][[1]]}];
a /@ Range[terms] (* Jean-François Alcover, Nov 15 2019 *)
PROG
(Haskell)
a064823_list = f a000796_list $ replicate 10 0 where
f (d:ds) cs = (v + 1) : f ds (us ++ (v + 1) : vs) where
(us, v:vs) = splitAt d cs
-- Reinhard Zumkeller, Jul 14 2013
CROSSREFS
A000796 is the sequence of decimal digits of Pi.
Sequence in context: A109035 A244231 A237706 * A140225 A104758 A143227
KEYWORD
base,nonn
AUTHOR
Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 23 2001
STATUS
approved