OFFSET
1,4
MATHEMATICA
Table[n - Floor[Sqrt[Prime[n]]], {n, 100}] (* Wesley Ivan Hurt, Apr 20 2023 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Mar 20 2005
EXTENSIONS
Corrected and extended by Ray Chandler, May 18 2005
STATUS
approved