1,1

with(numtheory); BNM11:=[]: for z from 1 to 1 do for n from 1 to 500000 do m:=12*n+11; if sigma(m) mod phi(m) = 0 then BNM11:=[op(BNM11), m] fi; od; od; BNM11;

Cf. A000010, A000203, A020492.

Sequence in context: A030261 A007102 A139473 this_sequence A126029 A107736 A139474

Adjacent sequences: A110593 A110594 A110595 this_sequence A110597 A110598 A110599

nonn

Walter A. Kehowski (wkehowski(AT)cox.net), Sep 13 2005