1,1
with(numtheory); BNM7:=[]: for z from 1 to 1 do for m from 1 to 1000000 do n:=12*m+7; if sigma(n) mod phi(n) = 0 then BNM7:=[op(BNM7), n] fi; od; od; BNM7;
Cf. A000010, A000203, A020492, A062699.
Sequence in context: A204481 A052356 A184093 * A199857 A138717 A139776
Adjacent sequences: A110596 A110597 A110598 * A110600 A110601 A110602
nonn
Walter A. Kehowski (wkehowski(AT)cox.net), Sep 13 2005