OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..5476
PROG
(PARI) star(n)={n--; n>>valuation(n, 2)};
bases(n)=my(f=factor(n)[, 1], nu=valuation(f[1]-1, 2), nn = star(n)); for(i=2, #f, nu = min(nu, valuation(f[i] - 1, 2)); ); (1 + (2^(#f * nu) - 1) / (2^#f - 1)) * prod(i=1, #f, gcd(nn, star(f[i]))); \\ Given a value of A141768, this function transforms it to a term of this sequence.
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, Sep 15 2011
STATUS
approved