OFFSET
1,2
COMMENTS
REFERENCES
G. L. Cohen, personal communication.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
G. L. Cohen, On an integer's infinitary divisors, Math. Comp., 54 (1990), 395-411.
Michel Marcus, Unexhaustive list of terms
PROG
(PARI) a049417(n) = {my(b, f=factorint(n)); prod(k=1, #f[, 2], b = binary(f[k, 2]); prod(j=1, #b, if(b[j], 1+f[k, 1]^(2^(#b-j)), 1)))}
isok(n) = frac(a049417(n)/n) == 0; \\ Michel Marcus, Sep 05 2018
CROSSREFS
KEYWORD
nonn,more
AUTHOR
EXTENSIONS
a(10)-a(18) from Donovan Johnson, Nov 21 2013
a(1)=1 prepended by Michel Marcus, Sep 04 2018
STATUS
approved