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,2

Links

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

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 *)

Crossrefs

Cf. A072941, A073490, A073491.

Sequence in context: A093030 A122425 A360073 * A079827 A216196 A028901

Adjacent sequences: A074041 A074042 A074043 * A074045 A074046 A074047

Keyword

nonn

Author

Reinhard Zumkeller, Aug 13 2002

Status

approved