|
%I #18 Aug 10 2021 11:07:42
%S 8,10,12,14,16,20,24,30,36,44,54,66,102,146,222,336,520,1010,1762,
%T 3342,6416,14420,34124,102514,310162,1135622,4252006,20160546,
%U 114720042,665476452,4752456544,43321135540,502611010664,7240574662150,151272370273006
%N Repeatedly convert from decimal to octal.
%H Reinhard Zumkeller, <a href="/A008557/b008557.txt">Table of n, a(n) for n = 1..75</a>
%F a(n+1) = A007094(a(n)), a(1) = 8. - _Reinhard Zumkeller_, Aug 29 2013
%t NestList[ FromDigits[ IntegerDigits[ #, 8 ]] &, 8, 35 ]
%o (Haskell)
%o a008557 n = a008557_list !! (n-1)
%o a008557_list = iterate a007094 8 -- _Reinhard Zumkeller_, Aug 29 2013
%o (Python)
%o def aupton(terms):
%o alst = [8]
%o for n in range(2, terms+1): alst.append(int(oct(alst[-1])[2:]))
%o return alst
%o print(aupton(35)) # _Michael S. Branicky_, Aug 10 2021
%Y Cf. A007094, A008558.
%K nonn,base,nice,easy
%O 1,1
%A sbv(AT)VNET.IBM.COM (Scott Vetter), msvetter(AT)eng.xyplex.com (Mark Vetter)
|
