OFFSET
1,3
LINKS
Carmine Suriano, Table of n, a(n) for n = 1..165
FORMULA
EXAMPLE
a(21) = 75025 since 75025 = fib(25) = 5^2 * 3001 has no cubic factor.
MATHEMATICA
Select[Fibonacci@ Range@ 120, Max[Last /@ FactorInteger@ #] < 3 &] (* Giovanni Resta, Feb 27 2014 *)
PROG
(Haskell)
a238497 n = a238497_list !! (n-1)
a238497_list = filter ((== 1) . a212793) $ tail a000045_list
-- Reinhard Zumkeller, Feb 28 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Carmine Suriano, Feb 27 2014
EXTENSIONS
b-file corrected from Giovanni Resta, Frb 28 2014
STATUS
approved