|
| |
|
|
A077525
|
|
Last term of n-th row of A077526.
|
|
2
|
|
|
|
1, 22, 303, 414, 525, 636, 747, 858, 969, 10701, 11711, 12921, 130031, 141141, 152251, 163361, 174471, 185581, 196691, 207702, 218812, 228822, 2300032, 2401042, 2502052, 2603062, 2704072, 2805082, 2906092, 3007003
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
n-th palindrome beginning with n.
|
|
|
LINKS
|
Table of n, a(n) for n=1..30.
|
|
|
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); }
lista(nn) = {for (i = 1, nn, j = i; nb = 0; while (nb < i, d = digits(j); if (startwith(d, i) && ispal(d), nb++; if (nb == i, print1(j, ", "))); j++; ); ); } \\ Michel Marcus, Sep 14 2013
|
|
|
CROSSREFS
|
Cf. A077526, A077527.
Sequence in context: A022746 A125457 A155785 * A083765 A061341 A088279
Adjacent sequences: A077522 A077523 A077524 * A077526 A077527 A077528
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Amarnath Murthy, Nov 08 2002
|
|
|
EXTENSIONS
|
More terms from Sascha Kurz, Jan 03 2003
Several terms starting from n=10 onwards corrected by Michel Marcus, Sep 14 2013
|
|
|
STATUS
|
approved
|
| |
|
|
