This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A373079 #47 Jun 28 2024 23:08:16
%S A373079 3,1,5,3,9,2,4,3,9,7,3,1,0,4,3,8,6,8,2,3,1,1,7,1,4,6,2,0,4,5,2,3,2,3,
%T A373079 4,2,4,1,7,1,0,1,1,0,2,4,4,3,9,9,4,2,4,4,3,6,5,0,8,6,1,0,2,3,3,7,1,4,
%U A373079 3,4,0,8,5,0,0,6,9,3,3,4,0,1,4,1,9,4,5,3,7,5,1,8,9,1,0,4,3,9,3,8
%N A373079 Decimal digits of Pi selected by stepping forward d places at digit d or 10 places if d=0.
%C A373079 Are the digits uniformly distributed?
%F A373079 a(n) = the (1 + Sum_{i=1..n-1} a(i) + 10*delta(a(i),0))-th digit in the decimal expansion of Pi, where delta is the Kronecker symbol.
%e A373079 The sequence starts with the first digit of the decimal expansion of Pi, which is 3. The next term is the digit 3 places after this, namely, 1, and so on.
%e A373079 The digits selected from Pi begin
%e A373079 Pi = 3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, ...
%e A373079 ^ ^ ^ ^ ^
%t A373079 a={3}; s=1; For[n=2, n<=100, n++, s+=Part[a,n-1]+10KroneckerDelta[Part[a,n-1]]; digits=First[RealDigits[Pi,10,s]]; AppendTo[a,Part[digits,s]]]; a (* _Stefano Spezia_, May 31 2024 *)
%Y A373079 Cf. A000796,
%Y A373079 Cf. A373304, A373307.
%K A373079 nonn,base,cons
%O A373079 1,1
%A A373079 _Karl Levy_, May 22 2024
%E A373079 a(25)-a(100) from _Stefano Spezia_, May 31 2024