A377783 Least nonsquarefree number > prime(n).
4, 4, 8, 8, 12, 16, 18, 20, 24, 32, 32, 40, 44, 44, 48, 54, 60, 63, 68, 72, 75, 80, 84, 90, 98, 104, 104, 108, 112, 116, 128, 132, 140, 140, 150, 152, 160, 164, 168, 175, 180, 184, 192, 196, 198, 200, 212, 224, 228, 232, 234, 240, 242, 252, 260, 264, 270, 272
Offset: 1
Keywords
Examples
The third prime is 5, which is followed by 6, 7, 8, 9, ..., of which 8 is the first nonsquarefree term, so a(3) = 8. The terms together with their prime indices begin: 4: {1,1} 4: {1,1} 8: {1,1,1} 8: {1,1,1} 12: {1,1,2} 16: {1,1,1,1} 18: {1,2,2} 20: {1,1,3} 24: {1,1,1,2} 32: {1,1,1,1,1} 32: {1,1,1,1,1} 40: {1,1,1,3} 44: {1,1,5} 44: {1,1,5} 48: {1,1,1,1,2} 54: {1,2,2,2} 60: {1,1,2,3} 63: {2,2,4} 68: {1,1,7} 72: {1,1,1,2,2}
Crossrefs
For prime-power instead of nonsquarefree (and primes + 1) we have A345531.
First differences are A377784.
The union is A378040.
Terms appearing only once are A378082.
Terms appearing twice are A378083.
Nonsquarefree numbers that are missing are A378084.
A005117 lists the squarefree numbers.
A070321 gives the greatest squarefree number up to n.
Programs
-
Mathematica
Table[NestWhile[#+1&,Prime[n],SquareFreeQ],{n,100}]
Formula
a(n) = A120327(prime(n)).
Extensions
Proof suggested by Amiram Eldar.
Comments