OFFSET
0,5
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..16
FORMULA
0 = a(n)*(a(n+3) - a(n+4)) + a(n+3)*a(n+3) for all n>=0.
A133400(n) = a(n+1)/a(n).
MATHEMATICA
RecurrenceTable[{a[n] == a[n - 1] (1 + a[n - 1]/a[n - 4]), a[0] == a[1] == a[2] == a[3] == 1}, a, {n, 0, 12}] (* Michael De Vlieger, Sep 04 2016 *)
PROG
(Ruby)
def A(m, n)
a = Array.new(m, 1)
ary = [1]
while ary.size < n + 1
break if a[-1] % a[0] > 0
a = *a[1..-1], a[-1] * (1 + a[-1] / a[0])
ary << a[0]
end
ary
end
def A276416(n)
A(4, n)
end
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Sep 02 2016
STATUS
approved