|
%I #10 Sep 08 2022 08:46:14
%S 7,19,98,279,1206,1981,4570,6347,11438,23389,28460,48925,66724,76763,
%T 100448,144781,200466,221149,293904,349911,379756,482391,559620,
%U 691145,897048,1012725,1073044,1203091,1270640,1415897,2018592,2215323
%N a(n) = prime(n)^3 - n^3.
%C Obviously, a(n) is not a prime number if n > 2.
%F a(n) = A030078(n) - A000578(n).
%t Array[Prime[#]^3 - #^3 &, {32}] (* _Michael De Vlieger_, Sep 14 2015 *)
%o (PARI) a(n) = prime(n)^3 - n^3;
%o vector (30, n, a(n))
%o (Magma) [NthPrime(n)^3 - n^3: n in [1..40]]; // _Vincenzo Librandi_, Sep 15 2015
%Y Cf. A030078, A000578.
%Y Cf. A014689, A106588.
%K nonn,easy
%O 1,1
%A _Altug Alkan_, Sep 14 2015
|
