OFFSET
1,72
COMMENTS
Number of terms of A024670 that divide n.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..100080
PROG
(PARI)
A373971(n) = if(0==n, n, for(i=ceil(sqrtn(n\2+1, 3)), sqrtn(n-(1/2), 3), if(ispower(n-(i^3), 3), return(1))); 0); \\ After M. F. Hasler's Apr 12 2008 program in A024670.
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 24 2024
STATUS
approved