OFFSET
1,1
COMMENTS
See A037918 for an implicit list of the squarefree F.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..49
MATHEMATICA
f[n_]:=Union[Last/@FactorInteger[n]][[ -1]]; lst={}; Do[fibo=Fibonacci[n]; If[f[fibo-1]==1&&f[fibo+1]==1&&f[fibo]==1, AppendTo[lst, fibo]], {n, 4, 200}]; lst
Select[Fibonacci[Range[200]], And@@SquareFreeQ/@{#-1, #, #+1}&] (* Harvey P. Dale, Nov 14 2011 *)
PROG
(Python)
from sympy import factorint
A173208_list = [2]
a, b = 2, 3
for _ in range(10**2):
if max(factorint(b).values()) <= 1 and max(factorint(b-1).values()) <= 1 and max(factorint(b+1).values()) <= 1:
A173208_list.append(b)
a, b = b, a + b # Chai Wah Wu, Jun 08 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 12 2010
EXTENSIONS
Description simplified by R. J. Mathar, Feb 15 2010
Initial term 2 added, since 1 by convention is squarefree (see A005117) by Harvey P. Dale, Nov 15 2011
STATUS
approved