A064823 Number of indices 1 <= i <= n with A000796(i)=A000796(n).

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

Author

Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 23 2001

Keywords

• base
• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to the number Pi

Crossrefs

A000796 is the sequence of decimal digits of Pi.

Programs

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

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 *)