OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
FORMULA
{ k : k = A187680(k) }.
MAPLE
isA187711 := proc(n) is(A187680(n) = n) end proc:
for n from 2 to 300 do if isA187711(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Mar 17 2011
MATHEMATICA
Select[Range[300], Mod[#^(DivisorSigma[0, #]/2), DivisorSigma[1, #]] == # &] (* G. C. Greubel, Nov 05 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Mar 17 2011
STATUS
approved