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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A067745 Numerator of ((3*n - 2)/(n^(2*n - 1)*(2*n - 1)*4^(n - 1))). 9

%I #64 Sep 08 2022 08:45:05

%S 1,1,7,5,13,1,19,11,25,7,31,17,37,5,43,23,49,13,55,29,61,1,67,35,73,

%T 19,79,41,85,11,91,47,97,25,103,53,109,7,115,59,121,31,127,65,133,17,

%U 139,71,145,37,151,77,157,5,163,83,169,43,175,89,181,23,187,95,193,49,199

%N Numerator of ((3*n - 2)/(n^(2*n - 1)*(2*n - 1)*4^(n - 1))).

%C Conjecture: Odd part of 3n-2. - _Ralf Stephan_, Nov 18 2010

%C Conjecture is true. Note that gcd(3n-2,2n-1)=1 (because 2(3n-2)-3(2n-1) = -1) and gcd(3n-2,n) = 1 or 2. If 2^k | (3n-2), then k <= log_2(3n-2) < (n-1)/2 for n >= 11. So only the cases n <= 10 need to be checked individually. - _Robert Israel_, May 16 2017

%C This sequence is equivalent to A165355 where each element is reduced by the highest possible power of two. - _Joe Slater_, Nov 30 2016

%C Selecting each odd term gives b(n) = 6n+1 (A016921). A075677 is the even bisection of this sequence, while this sequence is the odd bisection of A075677. - _Cory Kalm_, Apr 29 2021

%C Numerator of n/2^n + (n-1)/2^(n-1), two Oresme numbers. - _Paul Curtz_, Dec 07 2021

%H Robert Israel, <a href="/A067745/b067745.txt">Table of n, a(n) for n = 1..10000</a>

%H D. S. Mitrinovic and Slavko Simic, <a href="http://www.jstor.org/stable/2695786">Special Functions from Long Ago: 5626</a>, Amer. Math. Monthly 109, (2002), p. 83-84.

%F Assuming the above conjecture, a(n) = a((8+(3*n-2)*4^k)/12), for all k >= 1. - _L. Edson Jeffery_, Feb 15 2015

%F a(n) = A000265(A165355(n-1)). - _Joe Slater_, Nov 30 2016

%F a(n) = A000265(3*n-2). - _R. J. Mathar_, Aug 23 2020

%F a(n) = A075677(2*n-1). a(2*n) = A075677(n); a(2*n-1) = A016921(n). - _Cory Kalm_, May 03 2021

%p f:= n -> (3*n-2)/2^padic:-ordp(3*n-2,2):

%p map(f, [$1..100]); # _Robert Israel_, May 16 2017

%t (* Assuming the above conjecture: *)

%t a067745[n_] := (3*n - 2)/2^IntegerExponent[3*n - 2, 2]; Table[a067745[n], {n, 67}] (* _L. Edson Jeffery_, Feb 15 2015 *)

%o (PARI) vector(80, n, numerator(((3*n - 2)/(n^(2*n - 1)*(2*n - 1)*4^(n - 1))))) \\ _Michel Marcus_, Feb 16 2015

%o (Magma) [Numerator(((3*n - 2)/(n^(2*n - 1)*(2*n - 1)*4^(n - 1)))): n in [1..80]]; // _Vincenzo Librandi_, Feb 16 2015

%Y Cf. A067746, A165355, A000265, A075677, A016921, A007310 (range).

%Y Cf. A075101.

%K easy,frac,nonn

%O 1,3

%A _Marc LeBrun_, Jan 29 2002

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 07:20 EDT 2024. Contains 371235 sequences. (Running on oeis4.)