OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1) = 2022 from 2022 = 2*3*337, 2023 = 7*17^2, 2024 = 2^3*11*23, and 2025 = 3^4*5^2.
MATHEMATICA
f[n_]:=Max[Last/@FactorInteger[n]]; lst={}; Do[If[f[n]==1&&f[n+1]==2&&f[n+2]==3&&f[n+3]==4, AppendTo[lst, n]], {n, 2, 9!}]; lst
SequencePosition[Table[Max[FactorInteger[n][[;; , 2]]], {n, 250000}], {1, 2, 3, 4}][[;; , 1]] (* Harvey P. Dale, Aug 21 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 28 2010
EXTENSIONS
Edited by N. J. A. Sloane, Dec 29 2021
STATUS
approved