OFFSET
1,1
COMMENTS
For all terms thus far, both m and reverse(m) are even.
a(24) > 10^11. - Giovanni Resta, Mar 31 2014
FORMULA
EXAMPLE
2576 = 2*2*2*2*23*7 (6 factors)
6752 = 2*2*2*2*2*211 (6 factors)
Since 2576 is the smallest number with this property, a(6) = 2576.
MAPLE
A239697 := proc(n)
local a;
for a from 1 do
if numtheory[bigomega](a) = n then
if numtheory[bigomega](digrev(a)) =n then
return a;
end if;
end if;
end do:
end proc: # R. J. Mathar, Apr 04 2014
PROG
(Python)
import sympy
from sympy import factorint
from sympy import primorial
def Rev(x):
..rev = ''
..for i in str(x):
....rev = i + rev
..return int(rev)
def RevFact(x):
..n = 2
..while n <= primorial(x):
....if sum(list(factorint(n).values())) == x:
......if sum(list(factorint(Rev(n)).values())) == x:
........return n
......else:
........n += 1
....else:
......n += 1
x = 1
while x < 50:
..print(RevFact(x))
..x += 1
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Derek Orr, Mar 24 2014
EXTENSIONS
a(17)-a(23) from Giovanni Resta, Mar 31 2014
a(24)-a(31) from David A. Corneth, Oct 03 2020
STATUS
approved