OFFSET
1,10
LINKS
Indranil Ghosh, Table of n, a(n) for n = 1..10000
FORMULA
a(n)=0 iff all divisors are palindromic. See A062687.
MAPLE
MATHEMATICA
Table[Plus @@ Select[Divisors[k], Reverse[x = IntegerDigits[#]] != x &], {k, 73}] (* Jayanta Basu, Aug 12 2013 *)
PROG
(Python)
def ispal(n):
return n==int(str(n)[::-1])
def A088001(n):
s=0
for i in range(1, n+1):
if n%i==0 and not ispal(i):
s+=i
return s # Indranil Ghosh, Feb 10 2017
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Oct 14 2003
STATUS
approved