OFFSET
1,2
COMMENTS
This additive sequence will tend to be geometric.
LINKS
Pieter Post, Table of n, a(n) for n = 1..100
EXAMPLE
a(5)=16, so a(6) is 16 + 1^1 + 6^2 = 53.
MATHEMATICA
NestList[#+Total[IntegerDigits[#]^Range[IntegerLength[#]]]&, 1, 40] (* Harvey P. Dale, Jan 19 2021 *)
PROG
(Python)
def moda(n):
return sum(int(d)**(i + 1) for i, d in enumerate(str(n)))
b = 1
resu = [1]
for a in range(1, 100):
b += moda(b)
resu.append(b)
resu
(Sage) A=[1]
for i in [1..2000]:
A.append(A[i-1]+sum(A[i-1].digits()[len(A[i-1].digits())-1-j]^(j+1) for j in [0..len(A[i-1].digits())-1]))
A # Tom Edgar, Oct 20 2015
(PARI) lista(nn) = {print1(a=1, ", "); for (n=2, nn, d = digits(a); na = a + sum(i=1, #d, d[i]^i); print1(na, ", "); a = na; ); } \\ Michel Marcus, Nov 20 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Pieter Post, Oct 20 2015
STATUS
approved