OFFSET
1,2
PROG
(PARI) A007955(n)=if(issquare(n, &n), n^numdiv(n^2), n^(numdiv(n)/2))
v=[]; for(n=1, 1e4, if(a(n)%sigma(n)==0, v=concat(v, A007955(n)/sigma(n)))); vecsort(v, , 8) \\ Charles R Greathouse IV, Mar 16 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Mar 16 2011
EXTENSIONS
a(5)-a(18) from Charles R Greathouse IV, Mar 16 2011
STATUS
approved