A079602 Greatest of smallest odd prime factors of all composite numbers between n-th prime and next prime.

3, 5, 3, 7, 3, 11, 13, 3, 17, 19, 3, 23, 13, 29, 3, 31, 17, 3, 37, 41, 43, 47, 7, 3, 53, 3, 7, 61, 5, 67, 3, 73, 3, 19, 79, 83, 43, 89, 3, 47, 3, 97, 3, 103, 109, 113, 3, 29, 59, 3, 61, 127, 131, 67, 3, 137, 139, 3, 73, 151, 7, 3, 157, 163, 167, 173, 3, 11, 179, 181, 23, 47, 191

Offset

3,1

Links

Amiram Eldar, Table of n, a(n) for n = 3..10000

Mathematica

a[n_] := Max[FactorInteger[#/2^IntegerExponent[#, 2]][[1, 1]] & /@ Range[Prime[n] + 1, Prime[n + 1] - 1]]; Array[a, 100, 3] (* Amiram Eldar, Mar 28 2025 *)

Crossrefs

Cf. A078701, A052180.

Sequence in context: A378640 A095366 A029604 * A075572 A089992 A074593

Adjacent sequences: A079599 A079600 A079601 * A079603 A079604 A079605

Keyword

nonn

Author

Reinhard Zumkeller, Jan 28 2003

Status

approved