OFFSET
1,2
FORMULA
EXAMPLE
1
22 44
111 141 171
2112 2332 2552 2772
...
MATHEMATICA
snm[n_]:=Module[{a=Floor[10^(n-1)], b=Floor[10^n-1]}, Select[ Select[ Range[ a, b], Divisible[#, n]&&IntegerLength[#]==n&], PalindromeQ, n]]; Array[ snm, 8]//Flatten (* Harvey P. Dale, Aug 23 2020 *)
PROG
(PARI) isok(k, n) = my(d=digits(k*n)); (#d == n) && (Vecrev(d) == d);
row(n) = {my(v=vector(n), k = ceil(10^(n-1)/n)); for (i=1, n, while(! isok(k, n), k++); v[i] = k*n; k++; ); v; } \\ Michel Marcus, Mar 28 2020
CROSSREFS
KEYWORD
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 23 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Jun 12 2003
More terms from Michel Marcus, Mar 28 2020
STATUS
approved