OFFSET
1,2
COMMENTS
Complement of A107747 in the positive integers.
Contains A016861. - Robert Israel, Oct 23 2015
MAPLE
lpf:= n -> min(numtheory:-factorset(n)):
select(n -> lpf(6*n+1) > lpf(6*n-1), [$1..1000]); # Robert Israel, Oct 23 2015
MATHEMATICA
Select[Range@ 111, FactorInteger[6 # + 1][[1, 1]] > FactorInteger[6 # - 1][[1, 1]] &] (* Michael De Vlieger, Oct 23 2015 *)
PROG
(PARI) isok(n) = vecmin(factor(6*n+1)[, 1]) > vecmin(factor(6*n-1)[, 1]); \\ Michel Marcus, Feb 04 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 23 2005
EXTENSIONS
Comments corrected and (at the suggestion of Michel Marcus) moved to Crossrefs by Jason Kimberley, Oct 23 2015
STATUS
approved