OFFSET
0,4
COMMENTS
The odd-indexed bisection forms A036467, in which the pairwise sums yield the primes.
FORMULA
a(n) = p_n - p_{n-1} when n>1, where a(0)=a(1)=1.
EXAMPLE
a(10) = p_10 +p_8 +p_6 +p_4 +p_2 +p_0 = 29 + 19 + 13 +7 +3 + 1 = 72.
MATHEMATICA
a[n_ /; n <= 2] = 1; a[_?EvenQ] = 0; a[n_] := a[n] = Prime[(n + 1)/2] - a[n - 2]; Table[a[n], {n, 0, 71}] (* Jean-François Alcover, Aug 01 2013 *)
PROG
(Haskell)
import Data.List (transpose)
a073739 n = a073739_list !! n
a073739_list = concat $ transpose [1 : 1 : repeat 0, tail a036467_list]
-- Reinhard Zumkeller, Aug 09 2015
CROSSREFS
KEYWORD
easy,nice,nonn
AUTHOR
Paul D. Hanna, Aug 07 2002
STATUS
approved