OFFSET
1,1
EXAMPLE
2, 5(>4=2+2), 11(>10=5+5), 17(>13=11+1+1), 29(>25=17+1+7), etc.
MAPLE
A007953 := proc(n) add(d, d=convert(n, base, 10)) ; end: A156850 := proc(n) option remember; if n = 1 then 2; else procname(n-1)+A007953(procname(n-1)) ; nextprime(%) ; fi; end: seq(A156850(n), n=1..120) ; # R. J. Mathar, Feb 20 2009
MATHEMATICA
NestList[NextPrime[#+Total[IntegerDigits[#]]]&, 2, 60] (* Harvey P. Dale, Aug 21 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Feb 17 2009
EXTENSIONS
Definition clarified by Harvey P. Dale, Aug 21 2011
STATUS
approved