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