OFFSET
1,1
COMMENTS
Every number m == 2 (mod 3), m > 2, is in the sequence (see A016789).
MAPLE
A020639 := proc(n) if n = 1 then 1; else min(op(numtheory[factorset](n)) ) ; end if; end proc:
for n from 2 to 400 do if isA173977(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Mar 25 2010
MATHEMATICA
lpf[n_] := lpf[n] = FactorInteger[n][[1, 1]]; Select[Range[2, 150], lpf[2*#-1] < lpf[2*#-3] &] (* Amiram Eldar, Oct 24 2024 *)
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
Vladimir Shevelev, Mar 04 2010
EXTENSIONS
More terms from R. J. Mathar, Mar 25 2010
STATUS
approved