OFFSET
1,1
COMMENTS
An analog of A243937.
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]]
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)
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