cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A130618 a(1)=1; a(n+1) = Sum_{k=0..a(n) mod n} a(n-k).

This page as a plain text file.
%I A130618 #16 Apr 26 2020 07:40:51
%S A130618 1,1,2,4,4,12,12,35,63,63,173,368,734,1448,2884,5607,11340,16947,
%T A130618 39627,79301,118928,271750,543500,1092066,2184858,4358317,8727848,
%U A130618 17455759,34911652,61095259,130918366,244381036,506138640,1012353685,2024551664
%N A130618 a(1)=1; a(n+1) = Sum_{k=0..a(n) mod n} a(n-k).
%H A130618 Vaclav Kotesovec, <a href="/A130618/b130618.txt">Table of n, a(n) for n = 1..3300</a>
%H A130618 Vaclav Kotesovec, <a href="/A130618/a130618.jpg">Plot of a(n) / (2^n/n) for n = 1..50000</a>
%e A130618 a(10) mod 10 = 63 mod 10 = 3. So a(11) = Sum_{k=0..3} a(10-k) = a(10) + a(9) + a(8) + a(7) = 63 + 63 + 35 + 12 = 173.
%p A130618 a[1] := 1; for n to 35 do a[n+1] := add(a[n-k], k = 0 .. `mod`(a[n], n)) end do; seq(a[n], n = 1 .. 35); # _Emeric Deutsch_, Jun 21 2007
%t A130618 a[1] = 1; a[n_] := a[n] = Sum[a[n-1-k], {k, 0, Mod[a[n-1], n-1]}]; Table[a[n], {n, 1, 50}] (* _Vaclav Kotesovec_, Apr 26 2020 *)
%Y A130618 Cf. A057176.
%K A130618 nonn
%O A130618 1,3
%A A130618 _Leroy Quet_, Jun 18 2007
%E A130618 More terms from _Jon E. Schoenfield_, Jun 21 2007
%E A130618 More terms from _Emeric Deutsch_, Jun 21 2007