A093544 Numerator of (4*n-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

Author

Ralf Stephan, Mar 31 2004

Keywords

• nonn
• easy

Comments

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

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

Links

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

Programs

Mathematica

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

PARI

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