|
%I #20 Dec 15 2017 07:11:59
%S 1,1,1,2,2,4,16,256,32768,536870912,72057594037927936,
%T 324518553658426726783156020576256,
%U 411376139330301510538742295639337626245683966408394965837152256
%N a(n) = 2^tetranacci(n).
%H Harvey P. Dale, <a href="/A168088/b168088.txt">Table of n, a(n) for n = 0..16</a>
%H <a href="/index/Di#divseq">Index to divisibility sequences</a>
%F a(n) = 2^A000078(n).
%t a={1,0,0,0};Flatten[Prepend[Table[s=Plus@@a;a=RotateLeft[a];z=a[[ -1]]=s;z=2^z,{n,12}],Table[0,{m,Length[a]-1}]]]
%t 2^LinearRecurrence[{1,1,1,1},{0,0,0,1},15] (* _Harvey P. Dale_, Dec 12 2017 *)
%Y Cf. A000078.
%Y Subsequence of A000079.
%K nonn,easy
%O 0,4
%A _Vladimir Joseph Stephan Orlovsky_, Nov 18 2009
%E a(0)-a(2) and offset corrected by _Charles R Greathouse IV_, Jul 19 2012
|
