OFFSET
1,10
EXAMPLE
A334416(10) = 12 whose sum of digits is 3; 12/3 = 4, so a(10) = 4.
MATHEMATICA
Select[#/Plus @@ IntegerDigits[#] & /@ Range[3000], PalindromeQ] (* Amiram Eldar, Apr 29 2020 *)
PROG
(PARI) isok(m) = iferr(my(d=digits(m/sumdigits(m))); d==Vecrev(d), E, 0);
apply(x->x/sumdigits(x), select(x->isok(x), [1..3000])) \\ Michel Marcus, Apr 29 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Apr 29 2020
STATUS
approved