Are the terms of this sequence correct? The sequence lists only 38 terms less than 103, whereas I get 64 such terms. Here is the Mma program I used: With[{lnos=LucasL[Range[20]]},Select[Range[300],!MemberQ[lnos,DivisorSigma[0,#]]&]] Best, Harvey