The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A337386 Numbers k for which A003973(k) >= 2*A003961(k). 13
 120, 180, 240, 300, 360, 420, 480, 504, 540, 600, 630, 660, 720, 780, 840, 900, 924, 960, 990, 1008, 1020, 1050, 1080, 1092, 1140, 1170, 1200, 1260, 1320, 1380, 1440, 1470, 1500, 1512, 1560, 1620, 1650, 1680, 1740, 1800, 1848, 1860, 1890, 1920, 1980, 2016, 2040, 2100, 2160, 2184, 2220, 2280, 2310, 2340, 2400, 2460 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Provided that there are no odd perfect numbers, then these are equal to numbers k for which A003961(k) is in A005231, i.e., numbers that become odd abundant numbers when prime-shifted once. Not all terms are even. The first odd term is a(8313165) = 334639305 = A064989(A115414(1)). (See A337385). For any odd term x present, A064989(x) is also present, for example, A064989(334639305) = 19399380 = a(482324). LINKS Antti Karttunen, Table of n, a(n) for n = 1..25993; all terms < 2^20 MATHEMATICA Select[Range, If[# == 1, 1, DivisorSigma[1, # ]] >= 2# &@ Apply[Times, FactorInteger[#] /. {p_, e_} /; e > 0 :> Prime[PrimePi@ p + 1]^e] &] (* Michael De Vlieger, Aug 27 2020 *) PROG (PARI) A003961(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; isA337386(n) = (sigma(A003961(n))>=2*A003961(n)); CROSSREFS Cf. A000203, A003961, A003973, A005231, A115414, A336389, A337468. Subsequence of A005101, of A337381, and of A246282. Subsequences: A337385 (odd terms), A337479 (primitive elements). Sequence in context: A189975 A232461 A090782 * A023197 A204828 A204830 Adjacent sequences:  A337383 A337384 A337385 * A337387 A337388 A337389 KEYWORD nonn AUTHOR Antti Karttunen, Aug 27 2020 STATUS approved

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

Last modified April 12 00:07 EDT 2021. Contains 342910 sequences. (Running on oeis4.)