OFFSET
1,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Module[{nn=500, paldx}, paldx=Table[If[PalindromeQ[n], 1, 0], {n, 0, nn}]; Pick[Accumulate[ Range[ 0, nn]], paldx, 1]] (* Harvey P. Dale, Jun 11 2024 *)
PROG
(Python)
from itertools import chain, count, islice
def A089717_gen(): # generator of terms
return map(lambda n:n*(n+1)//2, chain((0, ), chain.from_iterable(chain((int((s:=str(d))+s[-2::-1]) for d in range(10**l, 10**(l+1))), (int((s:=str(d))+s[::-1]) for d in range(10**l, 10**(l+1)))) for l in count(0))))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Teofilatto, Nov 24 2004
EXTENSIONS
Definition corrected by Lambert.Klasen and David Wasserman, Oct 04 2005
More terms from David Wasserman and Klaus Brockhaus, Oct 04 2005
STATUS
approved