OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..49
PROG
(Python)
from sympy import factorint
def palQgen10(l): # generator of palindromes in base 10 of length <= 2*l
if l > 0:
yield 0
for x in range(1, l+1):
for y in range(10**(x-1), 10**x):
s = str(y)
yield int(s+s[-2::-1])
for y in range(10**(x-1), 10**x):
s = str(y)
yield int(s+s[::-1])
A046380_list = []
for x in palQgen10(6):
a = factorint(x)
if sum(list(a.values())) == 6:
for p in a:
s = str(p)
if s != s[::-1]:
break
else:
A046380_list.append(x) # Chai Wah Wu, Dec 26 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
a(19)-a(25) from Chai Wah Wu, Dec 26 2014
STATUS
approved
