A209675 Radon function at even positions: a(n) = A003484(2*n).

2, 4, 2, 8, 2, 4, 2, 9, 2, 4, 2, 8, 2, 4, 2, 10, 2, 4, 2, 8, 2, 4, 2, 9, 2, 4, 2, 8, 2, 4, 2, 12, 2, 4, 2, 8, 2, 4, 2, 9, 2, 4, 2, 8, 2, 4, 2, 10, 2, 4, 2, 8, 2, 4, 2, 9, 2, 4, 2, 8, 2, 4, 2, 16, 2, 4, 2, 8, 2, 4, 2, 9, 2, 4, 2, 8, 2, 4, 2, 10, 2, 4, 2, 8, 2

Offset

1,1

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Formula

a(n) = A053381(n-1) + 1.

a(n) > 1.

a(A005408(n)) = 2; a(A016825(n)) = 4; a(A017113(n)) = 8; a(A051062(n)) = 9.

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 4/3. - Amiram Eldar, Nov 29 2022

Mathematica

a[n_] := 8*Floor[(e = IntegerExponent[n, 2] + 1)/4] + 2^Mod[e, 4]; Array[a, 100] (* Amiram Eldar, Nov 29 2022 *)

Prog

(Haskell)
a209675 = a003484 . (* 2)

Crossrefs

Cf. A003484, A003485, A005408, A016825, A017113, A051062, A053381.

Sequence in context: A073017 A296092 A259111 * A307669 A171977 A266073

Adjacent sequences: A209672 A209673 A209674 * A209676 A209677 A209678

Keyword

nonn,easy

Author

Reinhard Zumkeller, Mar 11 2012

Status

approved