|
%I #12 Mar 15 2019 18:55:21
%S 1,2,3,4,5,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,5,1,2,3,4,
%T 1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,1,2,3,4,5,1,2,3,4,1,2,3,4,1,2,3,4,1,2,
%U 3,4,1,2,3,1,2,3,4,5,1,2,3,4,1,2,3,4,1
%N Start with (1, 2, 3, 4, 5); if the sequence has n terms, extend it by appending a(n) copies of a(1..n-1): cf. "Look to the left" sequence A293630.
%H Iain Fox, <a href="/A322425/b322425.txt">Table of n, a(n) for n = 1..10000</a>
%F Lim_{n->infinity} (a(1) + a(2) + ... + a(n))/n = 2.55182072...
%t Nest[Join[#, Flatten@ ConstantArray[Drop[#, -1], #[[-1]]] ] &, Range@ 5, 2] (* _Michael De Vlieger_, Dec 08 2018 *)
%o (PARI) gen(n, v=[1, 2, 3, 4, 5], w) = for(x=1, n, w=vector(#v-1, i, v[i]); for(y=1, v[#v], v=concat(v, w))); v
%Y "Look to the left" sequences: A293630 (seed 1,2), A322423 (seed 1,2,3), A322424 (seed 1,2,3,4).
%Y Cf. A322426.
%K nonn
%O 1,2
%A _Iain Fox_, Dec 07 2018
%E Self-contained definition from _M. F. Hasler_, Dec 10 2018
|
