OFFSET
1,5
MATHEMATICA
a[ n_ ] := Module[ {}, If[ n==2, Return[ 1 ] ]; For[ f0=3; f1=2; f2=1; c=0, f0<=n, f0=(f2=f1)+(f1=f0), If[ Mod[ n-f0, f2 ]==0, c++ ] ]; c ]
CROSSREFS
KEYWORD
nonn
AUTHOR
John W. Layman, Jan 04 2002
EXTENSIONS
Edited by Dean Hickerson, Jan 17 2002
STATUS
approved