OFFSET
0,2
LINKS
FORMULA
MATHEMATICA
Function[c, NestList[SequencePosition[c, IntegerDigits@ #][[1, 1]] &, 0, 23]]@ Rest@ First@ RealDigits[N[Pi, 10^7]] (* Michael De Vlieger, Jan 23 2017, Version 10.1 *)
PROG
(PARI) M97614=[]; A097614(n)={while(n > #M97614, M97614=concat(M97614, A014777(A097614(#M97614)))); if(n, M97614[n], 0)} \\ M. F. Hasler, Jun 21 2022
(Python)
def A097614(n):
while n >= len(A097614.list):
return A097614.list[n]
A097614.list = [0] # M. F. Hasler, Jun 21 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini, Aug 30 2004
STATUS
approved