OFFSET
1,1
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
read(transforms): A178338 := proc(n) option remember: local k: if(n=1)then return 2: fi: for k from procname(n-1)+1 do if((k+1) mod digsum(k) <> 0)then return k: fi: od: end: seq(A178338(n), n=1..68); # Nathaniel Johnston, May 27 2011
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Teofilatto, May 25 2010
STATUS
approved