0,1
Select[Range[10^4], ! PrimeQ[ # ] && PrimeQ[DivisorSigma[0, #^2]] &]
Sequence in context: A063907 A056166 A093771 this_sequence A114129 A053810 A076702
Adjacent sequences: A051673 A051674 A051675 this_sequence A051677 A051678 A051679
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 15 2001
Search completed in 0.002 seconds