OFFSET
1,3
COMMENTS
LINKS
FORMULA
EXAMPLE
For any divisor d of 6 (d = 1, 2, 3, 6), 2d (2, 4, 6, 12) is always a member of A025487. 2 is the smallest integer with this relationship to 6; therefore, a(6)=2.
PROG
(Python)
from sympy import primerange, factorint
from operator import mul
from functools import reduce
def P(n): return reduce(mul, [i for i in primerange(2, n + 1)])
def a(n):
f = factorint(n)
return 1 if n==1 else (reduce(mul, [P(i)**f[i] for i in f]))//n
print([a(n) for n in range(1, 101)]) # Indranil Ghosh, May 14 2017
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Matthew Vandermast, Nov 30 2010
STATUS
approved