OFFSET
1,1
COMMENTS
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) id(n)=2^vecsum(apply(hammingweight, factor(n)[, 2]))
is(n)=my(i=id(n)); id(n+i)==i \\ Charles R Greathouse IV, Feb 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Feb 22 2017
EXTENSIONS
More term from Peter J. C. Moses, Feb 22 2017
STATUS
approved