OFFSET
1,2
COMMENTS
An analog of A242033.
LINKS
Jens Kruse Andersen, Table of n, a(n) for n = 1..10000
MATHEMATICA
lpf[n_]:=lpf[n]=First[First[FactorInteger[n]]];
lpf3[n_]:=lpf3[n]=If[#==1, 1, lpf[#]]&[n/3^IntegerExponent[n, 3]]
Map[lpf3[#-1]&, Select[Range[4, 300, 2], lpf3[#-1]<lpf3[#-3]&]](* Peter J. C. Moses, Aug 13 2014 *)
PROG
(PARI) lpf3(n)=m=n/3^valuation(n, 3); if(m>1, factor(m)[1, 1], 1)
apply(n->lpf3(n-1), select(n->lpf3(n-1)<lpf3(n-3), vector(200, x, 2*x))) \\ Jens Kruse Andersen, Aug 19 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Aug 13 2014
EXTENSIONS
More terms from Peter J. C. Moses, Aug 13 2014
STATUS
approved