|
|
A077527
|
|
Row sums of triangle in A077526.
|
|
2
|
|
|
1, 24, 339, 866, 1605, 2556, 3719, 5094, 6681, 83910, 92121, 126052, 266303, 427674, 610165, 813776, 1038507, 1284358, 1551329, 1837540, 2146652, 2246984, 4887236, 7498608, 10311000, 13324412, 16538844, 19954296, 23570768, 27385390
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
PROG
|
(PARI) ispal(v) = {for(i=1, #v\2, if (v[i] != v[#v-i+1], return(0)); ); return(1); };
startwith(d, j) = {dj = digits(j); for (k = 1, #dj, if (d[k] != dj[k], return (0)); ); return (1); }
a(nn) = {for (i = 1, nn, j = i; nb = 0; rsum = 0; while (nb < i, d = digits(j); if (startwith(d, i) && ispal(d), nb++; rsum += j; ); j++; ); print1(rsum, ", "); ); } \\ Michel Marcus, Sep 14 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Several terms starting from n=12 onwards corrected by Michel Marcus, Sep 14 2013
|
|
STATUS
|
approved
|
|
|
|