OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
lpfQ[n_]:=Module[{c=6n}, FactorInteger[c+1][[1, 1]] < FactorInteger [c-1][[1, 1]]]; Select[Range[200], lpfQ] (* Harvey P. Dale, Apr 18 2011 *)
PROG
(PARI) isok(n) = vecmin(factor(6*n+1)[, 1]) < vecmin(factor(6*n-1)[, 1]);
for(n=1, 200, if(isok(n)==1, print1(n", "))) \\ Altug Alkan, Oct 23 2015
CROSSREFS
KEYWORD
nonn,changed
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