A074044 Largest divisor of n having no prime gaps.
1, 2, 3, 4, 5, 6, 7, 8, 9, 5, 11, 12, 13, 7, 15, 16, 17, 18, 19, 5, 7, 11, 23, 24, 25, 13, 27, 7, 29, 30, 31, 32, 11, 17, 35, 36, 37, 19, 13, 8, 41, 7, 43, 11, 45, 23, 47, 48, 49, 25, 17, 13, 53, 54, 11, 8, 19, 29, 59, 60, 61, 31, 9, 64, 13, 11, 67, 17, 23, 35, 71, 72
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
nogapsQ[n_] := Module[{p = FactorInteger[n][[;;, 1]]}, PrimePi[p[[-1]]] == PrimePi[p[[1]]] + Length[p] - 1]; a[n_] := SelectFirst[Reverse[Divisors[n]], nogapsQ]; Array[a, 100] (* Amiram Eldar, Apr 06 2025 *)