OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[ Range[120], Divisible[ DivisorSigma[1, 2*#], DivisorSigma[0, 2*#]] &] (* Jean-François Alcover, Jul 03 2013 *)
PROG
(PARI) is_a226394(n) = (sigma(2*n, 1) % sigma(2*n, 0) == 0) \\ Michael B. Porter, Jun 27 2013
(Magma) [n: n in [1..120] | IsZero(SumOfDivisors(2*n) mod NumberOfDivisors(2*n))]; // Bruno Berselli, Jun 28 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jun 22 2013
STATUS
approved