|
%I #21 Sep 08 2022 08:45:16
%S 0,1,4,9,4,25,6,49,8,9,10,121,12,169,14,15,16,289,18,361,20,21,22,529,
%T 24,25,26,27,28,841,30,961,32,33,34,35,36,1369,38,39,40,1681,42,1849,
%U 44,45,46,2209,48,49,50,51,52,2809,54,55,56,57,58,3481,60,3721,62,63,64
%N Integers but with the primes squared.
%H Vincenzo Librandi, <a href="/A103164/b103164.txt">Table of n, a(n) for n = 0..5000</a>
%F a(n) = (n! mod n^2) + n, n>0, n != 4. - _Gary Detlefs_, Feb 21 2011
%e a(4) = 4 because 4 is composite.
%e a(5) = 25 because 5 is prime and 5^2 = 25.
%t Table[ If[ !PrimeQ[n], n, n^2], {n, 0, 64}] (* _Robert G. Wilson v_, Mar 19 2005 *)
%o (Magma) [0] cat [IsPrime(n) select n^2 else n: n in [1..70]]; // _Vincenzo Librandi_, Feb 17 2017
%K easy,nonn
%O 0,3
%A _Parthasarathy Nambi_, Mar 17 2005
%E More terms from _Robert G. Wilson v_, Mar 19 2005
|
