A093544 Numerator of (4n-3)/A000265(n). Numerator of pairwise quotients of A004130.

1, 5, 3, 13, 17, 7, 25, 29, 11, 37, 41, 15, 49, 53, 19, 61, 65, 23, 73, 77, 27, 85, 89, 31, 97, 101, 35, 109, 113, 39, 121, 125, 43, 133, 137, 47, 145, 149, 51, 157, 161, 55, 169, 173, 59, 181, 185, 63, 193, 197, 67, 205, 209, 71, 217, 221, 75, 229, 233, 79, 241

Offset

1,2

Comments

Terms are a rearrangement of the odd numbers not of form 12k+9.

Also given by the following linear quasi-polynomial mod 3: (4 n - 3) If[Mod[n, 3] == 0, 1/3, 1]. [From Eric Rowland, Feb 24 2009]

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

Table[(4 n - 3) If[Mod[n, 3] == 0, 1/3, 1], {n, 50}] [From Eric Rowland, Feb 24 2009]

Prog

(PARI) a(n)=numerator((4*n-3)/n*2^valuation(n, 2))

Crossrefs

Sequence in context: A358440 A280818 A085910 * A082983 A083594 A178497

Adjacent sequences: A093541 A093542 A093543 * A093545 A093546 A093547

Keyword

nonn

Author

Ralf Stephan, Mar 31 2004

Status

approved