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
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 3..10000
Programs
-
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 *)