login
Last term of n-th row of A077526.
2

%I #14 Dec 05 2013 19:55:53

%S 1,22,303,414,525,636,747,858,969,10701,11711,12921,130031,141141,

%T 152251,163361,174471,185581,196691,207702,218812,228822,2300032,

%U 2401042,2502052,2603062,2704072,2805082,2906092,3007003

%N Last term of n-th row of A077526.

%C n-th palindrome beginning with n.

%o (PARI) ispal(v) = {for(i=1, #v\2, if (v[i] != v[#v-i+1], return(0));); return(1);};

%o startwith(d, j) = {dj = digits(j); for (k = 1, #dj, if (d[k] != dj[k], return (0));); return (1);}

%o 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

%Y Cf. A077526, A077527.

%K base,nonn

%O 1,2

%A _Amarnath Murthy_, Nov 08 2002

%E More terms from _Sascha Kurz_, Jan 03 2003

%E Several terms starting from n=10 onwards corrected by _Michel Marcus_, Sep 14 2013