OFFSET
1,2
EXAMPLE
MATHEMATICA
ndp[n_]:=Count[Divisors[n], _?(PalindromeQ[#]&)]; ndp/@Select[Range[ 2000], PalindromeQ] (* Harvey P. Dale, Oct 29 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 07 2003
STATUS
approved