OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..5000
FORMULA
a(n) = (n! mod n^2) + n, n>0, n != 4. - Gary Detlefs, Feb 21 2011
EXAMPLE
a(4) = 4 because 4 is composite.
a(5) = 25 because 5 is prime and 5^2 = 25.
MATHEMATICA
Table[ If[ !PrimeQ[n], n, n^2], {n, 0, 64}] (* Robert G. Wilson v, Mar 19 2005 *)
PROG
(Magma) [0] cat [IsPrime(n) select n^2 else n: n in [1..70]]; // Vincenzo Librandi, Feb 17 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Parthasarathy Nambi, Mar 17 2005
EXTENSIONS
More terms from Robert G. Wilson v, Mar 19 2005
STATUS
approved