OFFSET
0,4
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..16
FORMULA
a(n) = 2^A000078(n).
MATHEMATICA
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}]]]
2^LinearRecurrence[{1, 1, 1, 1}, {0, 0, 0, 1}, 15] (* Harvey P. Dale, Dec 12 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 18 2009
EXTENSIONS
a(0)-a(2) and offset corrected by Charles R Greathouse IV, Jul 19 2012
STATUS
approved