OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Brandon Avila and Tanya Khovanova, Free Fibonacci Sequences, Journal of Integer Sequences, Vol. 17 (2014), Article 14.8.5; arXiv preprint, arXiv:1403.4614 [math.NT], 2014.
EXAMPLE
The Lucas numbers form a Fibonacci-like sequence such that no term is divisible by 5.
MATHEMATICA
selQ[n_] := Do[test = Do[ If[ Divisible[ Fibonacci[k-2]*i + Fibonacci[k-1]*j, n], Return[True]], {k, 1, 2*n}]; If[test == Null, Return[False]], {i, 1, Floor[Sqrt[n]]}, {j, 1, Floor[Sqrt[n]]}]; Reap[ Do[ If[ selQ[n] =!= Null, Sow[n]], {n, 1, 100}]][[2, 1]] (* Jean-François Alcover, Oct 21 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Brandon Avila and Tanya Khovanova, Oct 19 2013
STATUS
approved