OFFSET
0,2
LINKS
FORMULA
a(n+1) = A055948(a(n)), a(0) = 1. [Reinhard Zumkeller, Oct 10 2011]
MATHEMATICA
nxt4[n_]:=Module[{idn4=IntegerDigits[n, 4]}, FromDigits[idn4+ Reverse[idn4], 4]]; NestList[nxt4, 1, 40] (* Harvey P. Dale, May 02 2011 *)
PROG
(Haskell)
a035524 n = a035524_list !! n
a035524_list = iterate a055948 1
-- Reinhard Zumkeller, Oct 10 2011
(Python)
def reversedigits(n, b=10): # reverse digits of n in base b
....x, y = n, 0
....while x >= b:
........x, r = divmod(x, b)
........y = b*y + r
....return b*y + x
A035524_list, l = [1], 1
for _ in range(50):
....l += reversedigits(l, 4)
....A035524_list.append(l)
CROSSREFS
KEYWORD
nonn,easy,nice,base
AUTHOR
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Sep 22 2000
STATUS
approved