

A261368


Number of sequences F such that F(k) = F(k1) + F(k2), F(1), F(2) are positive integers, and there exists some integer x>2 such that F(x) = n.


1



0, 1, 3, 4, 7, 7, 10, 12, 13, 14, 18, 17, 22, 22, 23, 25, 28, 29, 31, 32, 36, 35, 40, 38, 41, 44, 44, 47, 51, 48, 53, 53, 56, 59, 59, 60, 64, 65, 66, 66, 71, 71, 74, 75, 77, 78, 83, 81, 84, 86, 87, 88, 94, 91, 97, 96, 97, 101, 102, 103, 107, 106, 110, 109, 112
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS

This is the number of Fibonaccistyle sequences seeded with positive integers that contain each n, after the seeds.


LINKS

Giovanni Resta, Table of n, a(n) for n = 1..10000


EXAMPLE

For n=4, F(n) = 4 as the sequences <1,3,4,7...>, <2,1,3,4...>, <2,2,4,6...>, and <3,1,4,5...> each contain 4 outside of the initial 2 numbers.


MATHEMATICA

a[n_] := Sum[Block[{s, L={x, y}}, While[(s = Total@L ) < n, L = Rest@ Append[L, s]]; If[s == n, 1, 0]], {x, n1}, {y, nx}]; Array[a, 65] (* Giovanni Resta, Aug 17 2015 *)


PROG

(PARI) isok(x, y, n) = {ny = 0; while (ny <= n, ny = x + y; if (ny == n, return (1)); x = y; y = ny; ); return (0); }
a(n) = {nb = 0; for (j=1, n1, for (k=1, nj, if (isok(j, k, n), nb++); ); ); nb; } \\ Michel Marcus, Aug 17 2015


CROSSREFS

Sequence in context: A024605 A215630 A168563 * A257007 A070324 A054155
Adjacent sequences: A261365 A261366 A261367 * A261369 A261370 A261371


KEYWORD

nonn


AUTHOR

Ben Johnsrude, Aug 16 2015


EXTENSIONS

More terms from Michel Marcus, Aug 17 2015


STATUS

approved



