The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A274611 a(n) = n/8 if A007814(n) == 3 (mod 4), else a(n) = 2n. 1
 2, 4, 6, 8, 10, 12, 14, 1, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 3, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 5, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 7, 114, 116, 118, 120, 122, 124 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS A permutation of order 4 of the positive integers. LINKS Robert Israel, Table of n, a(n) for n = 1..10000 FORMULA a(16 k) = 16 a(k). a(16 k + 8) = 2 k + 1. a(n) = 2n otherwise. G.f. g(x) satisfies g(x) = 16 g(x^16) + 2 x/(1-x)^2 - x^8 (15 + 32 x^8 + 15 x^16)/(1-x^16)^2. MAPLE f:= proc(n) option remember; local r; r:= n mod 16; if r = 0 then 16*procname(n/16) elif r = 8 then n/8 else 2*n fi end proc: map(f, [\$1..100]); MATHEMATICA Table[If[Mod[IntegerExponent[n, 2], 4] == 3, n/8, 2 n], {n, 62}] (* Michael De Vlieger, Jun 30 2016 *) CROSSREFS Cf. A007814. Sequence in context: A356066 A285591 A327210 * A319808 A055956 A161207 Adjacent sequences: A274608 A274609 A274610 * A274612 A274613 A274614 KEYWORD nonn,easy AUTHOR Robert Israel, Jun 30 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 23 08:25 EDT 2024. Contains 373629 sequences. (Running on oeis4.)