OFFSET
1,2
COMMENTS
When n is a multiple of 10 there are no solutions and a row of n zeros occurs. Are there any nontrivial zeros? - Sean A. Irvine, Mar 04 2026
FORMULA
EXAMPLE
Triangle begins:
1;
22, 44;
111, 141, 171;
2112, 2332, 2552, 2772;
...
MATHEMATICA
snm[n_] := If[Divisible[n, 10], ConstantArray[0, n], Module[{a = 10^(n - 1), b = 10^n - 1}, Select[ Select[ Range[ a, b], Divisible[#, n] && IntegerLength[#] == n & ], PalindromeQ, n] ] ]; Array[snm, 7] // 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
Escape clause added to name by Sean A. Irvine, Mar 04 2026
STATUS
approved
