|
%I #19 Sep 08 2022 08:45:13
%S 1,3,12,42,150,525,1838,6433,22518,78815,275854,965491,3379220,
%T 11827271,41395451,144884079,507094277,1774829971,6211904899,
%U 21741667147,76095835015,266335422555,932173978944,3262608926305,11419131242070,39966959347247,139884357715364,489595252003776
%N a(n) = floor(7^n/2^n).
%H Vincenzo Librandi, <a href="/A094970/b094970.txt">Table of n, a(n) for n = 0..1000</a>
%F 7^n = a(n)*2^n + A138616(n). - _R. J. Mathar_, Oct 26 2012
%t Table[ Floor[(7/2)^n], {n, 0, 30}]
%o (Magma) [Floor(7^n / 2^n): n in [0..30]]; // _Vincenzo Librandi_, Sep 08 2011
%o (Maxima) A094970(n):=floor(7^n/2^n)$ makelist(A094970(n),n,0,30); /* _Martin Ettl_, Oct 25 2012 */
%o (PARI) a(n)=7^n>>n \\ _Charles R Greathouse IV_, Feb 04 2016
%Y Cf. A002379, A094969-A094999.
%K nonn,easy
%O 0,2
%A _Robert G. Wilson v_, May 26 2004
|
