OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..2500
MATHEMATICA
Select[Range[1, 10^6, 4], And[! PrimeQ@ #, Denominator[Fibonacci[(# - 1)/4]/#] == 1] &] (* Michael De Vlieger, May 07 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 17 2004
EXTENSIONS
a(16)-a(33) from Giovanni Resta, May 06 2017
STATUS
approved