OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16385
FORMULA
a(n) = (d(n)-1)*(d(n+1)-1), where d(n) = A000005(n).
PROG
(PARI) A175454(n)={ local(a=0) ; fordiv(n*(n+1), d, if(n %d <>0 && (n+1)%d<> 0, a++ ) ; ) ; return(a) ; }
{ for(n=1, 120, print1(A175454(n)", ") ; ) ; } \\ R. J. Mathar, May 28 2010
(PARI) A175454(n) = ((numdiv(n)-1)*(numdiv(n+1)-1)); \\ Antti Karttunen, Oct 07 2017, after the given formula.
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, May 16 2010
EXTENSIONS
More terms from Jon E. Schoenfield and R. J. Mathar, May 28 2010
STATUS
approved