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!)
A285703 a(n) = A000203(A064216(n)). 6
1, 3, 4, 6, 7, 8, 12, 12, 14, 18, 18, 20, 13, 15, 24, 30, 24, 24, 32, 36, 38, 42, 28, 44, 31, 42, 48, 32, 54, 54, 60, 42, 48, 62, 60, 68, 72, 39, 48, 74, 31, 80, 56, 72, 84, 72, 90, 72, 90, 56, 98, 102, 72, 104, 108, 96, 110, 80, 84, 84, 57, 114, 40, 114, 126, 128, 108, 60, 132, 138, 132, 96, 96, 93, 140, 150, 98, 120, 152, 144, 120, 158, 96, 164, 133, 126 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
FORMULA
a(n) = A000203(A064216(n)).
Sum_{k=1..n} a(k) ~ c * n^2, where c = Product_{p prime} (p^3/((p+1)*(p^2-q(p)))) = 0.8168476756..., where q(p) = prevprime(p) (A151799) if p > 2 and q(2) = 1. - Amiram Eldar, Dec 21 2023
MATHEMATICA
Table[DivisorSigma[1, #] &@ If[n == 1, 1, Apply[Times, FactorInteger[2 n - 1] /. {p_, e_} /; p > 2 :> NextPrime[p, -1]^e]], {n, 86}] (* Michael De Vlieger, Apr 26 2017 *)
PROG
(Scheme) (define (A285703 n) (A000203 (A064216 n)))
CROSSREFS
Sequence in context: A047515 A066650 A007609 * A002191 A108348 A085149
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 26 2017
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:21 EDT 2024. Contains 371254 sequences. (Running on oeis4.)