1,2
Do[If[DivisorSigma[1, n]-n==PrimePi[DivisorSigma[1, n]], Print[n]], {n, 1, 10000}]
Sequence in context: A127329 A043326 A079814 this_sequence A123912 A128279 A099611
Adjacent sequences: A090996 A090997 A090998 this_sequence A091000 A091001 A091002
nonn
Naohiro Nomoto (n_nomoto(AT)mx2.et.tiki.ne.jp), Mar 01 2004
Search completed in 0.002 seconds