OFFSET
1,2
COMMENTS
It is believed that a(n) is always > 0.
LINKS
MAPLE
read transforms; M:=100000; sp:=1; a:=[sp]; s:=sp;
for n from 2 to M do sp:=digsum(s); a:=[op(a), sp]; s:=s+sp; od:
b:=[]:
for n from 1 to 100 do
if (n mod 3) <> 0 then
if member(n, a, 'p') then b:=[op(b), p] else b:=[op(b), -1]; fi;
fi;
od:
b;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 17 2013
EXTENSIONS
a(35)-a(45) from Lars Blomberg, Jul 31 2017
STATUS
approved