cp's OEIS Frontend

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

%I A064823 #8 Nov 15 2019 10:45:48
%S A064823 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,
%T A064823 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,
%U A064823 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
%N A064823 Number of indices 1 <= i <= n with A000796(i)=A000796(n).
%H A064823 Reinhard Zumkeller, <a href="/A064823/b064823.txt">Table of n, a(n) for n = 1..10000</a>
%H A064823 <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a>
%t A064823 terms = 100; Clear[cnt]; cnt[_] = n = 0;
%t A064823 Do[a[++n] = ++cnt[k], {k, RealDigits[Pi, 10, terms][[1]]}];
%t A064823 a /@ Range[terms] (* _Jean-François Alcover_, Nov 15 2019 *)
%o A064823 (Haskell)
%o A064823 a064823_list = f a000796_list $ replicate 10 0 where
%o A064823    f (d:ds) cs = (v + 1) : f ds (us ++ (v + 1) : vs) where
%o A064823      (us, v:vs) = splitAt d cs
%o A064823 -- _Reinhard Zumkeller_, Jul 14 2013
%Y A064823 A000796 is the sequence of decimal digits of Pi.
%K A064823 base,nonn
%O A064823 1,4
%A A064823 Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 23 2001