OFFSET

1,1

COMMENTS

LINKS

Michael De Vlieger, Table of n, a(n) for n = 1..10000

MATHEMATICA

With[{s = 6}, Complement[Select[Range[Max[#] ], SquareFreeQ], #] &@ FoldList[Times, 1, Prime@ Range[s] ] ]

CROSSREFS

KEYWORD

nonn,easy

AUTHOR

Michael De Vlieger, Feb 08 2024

STATUS

approved