OFFSET
1,1
COMMENTS
Equivalently, numbers n such that 6n+1 has a factor == 5 (mod 6).
EXAMPLE
31 = 6*2*3 - 2 - 3. Equivalently, 6*31+1 = (6*2-1)*(6*3-1).
MATHEMATICA
Select[Range[250], MemberQ[Mod[Take[Divisors[6#+1], {2, -2}], 6], 5]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, May 05 2002
EXTENSIONS
Edited by Dean Hickerson, May 07 2002
STATUS
approved