login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A118883 Smallest prime p with bigomega(p+1)=n, where bigomega(m)=A001222(m) is the number of prime divisors of m (counted with multiplicity). 4
2, 3, 7, 23, 31, 223, 127, 383, 1151, 3583, 5119, 6143, 8191, 129023, 73727, 245759, 131071, 917503, 524287, 5505023, 10616831, 14680063, 18874367, 109051903, 169869311, 654311423, 738197503, 2264924159, 2818572287, 3758096383, 2147483647, 24159191039 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Equivalently, smallest prime p such that p+1 is an n-almost prime. For smallest prime p such that p+1 is a squarefree n-almost prime, see A098026.

LINKS

Robert G. Wilson v, Table of n, a(n) for n = 1..421

EXAMPLE

a(4) = 23 because 23 is prime and 23+1 = 2*2*2*3 has 4 prime factors (24 is a 4-almost prime).

MATHEMATICA

(* copied directly from A073919 with only a sign change *) ptns[n_, 0] := If[n==0, {{}}, {}]; ptns[n_, k_] := Module[{r}, If[n<k, Return[{}]]; ptns[n, k] = 1 + Union@@ Table[ PadRight[ #, k] &/ @ ptns[n-k, r], {r, 0, k}]]; a[n_] := Module[{i, l, v}, v=Infinity; For[i=n, True, i++, l=(Times@@ Prime /@ # &)/@ ptns[i, n]; If[ Min @@ l > v, Return[v]]; minp = Min@@ Select[l - 1, ProvablePrimeQ]; If[minp < v, v = minp]]] (* First do <<NumberTheory`PrimeQ`. ptns[n, k] is list of partitions of n into exactly k parts *) (* appended by Robert G. Wilson v *) Array[a, 32] (* Robert G. Wilson v, Jul 21 2011 *)

CROSSREFS

Cf. A073919, A098026, A073918.

Sequence in context: A211997 A127581 A278477 * A061712 A059661 A214704

Adjacent sequences:  A118880 A118881 A118882 * A118884 A118885 A118886

KEYWORD

nonn

AUTHOR

Rick L. Shepherd, May 03 2006

EXTENSIONS

a(26)-a(32) from Donovan Johnson, Feb 02 2011

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 19 18:36 EDT 2019. Contains 322287 sequences. (Running on oeis4.)