OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..8323 (all terms before the sum exceeds 10^12)
MATHEMATICA
seq={1}; Do[s=Total[seq]; k=1; While[MemberQ[seq, k] || !PalindromeQ[s+k], k++]; AppendTo[seq, k], {i, 1, 50}]; seq (* Amiram Eldar, Dec 04 2018 *)
PROG
(PARI)
ispal(n)={my(v=digits(n)); for(i=1, #v\2, if(v[i]<>v[#v+1-i], return(0))); 1}
seq(n)={my(v=vector(n), M=Map(), t=0); for(n=1, n, for(k=1, oo, if(!mapisdefined(M, k) && ispal(k+t), mapput(M, k, 1); v[n]=k; t+=k; break))); v} \\ Andrew Howroyd, Dec 04 2018
CROSSREFS
KEYWORD
AUTHOR
Amarnath Murthy, Aug 16 2002
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Jun 24 2003
STATUS
approved