|
%I #12 Sep 08 2022 08:46:11
%S 2,3,7,13,89,139,151,317,397,443,503,541,569,619,641,659,733,827,881,
%T 911,953,1091,1249,1439,1451,1627,1693,1783,2143,2393,2663,2707,2753,
%U 2861,2903,2969,3023,3119,3413,3727,4003,4243,4259,4457,4513,4673,4973,5077
%N Prime(n) is included iff prime(n) + n^3 is also prime.
%F a(n) = prime(A141526(n)). - _Michel Marcus_, Feb 04 2015
%e 7 is in this sequence because 7+64=71.
%e 13 is in this sequence because 13+216=229.
%t Prime[Select[Range[700], PrimeQ[Prime[#] + #^3] &]]
%o (Magma) [NthPrime(n): n in [1..700] | IsPrime(NthPrime(n)+n^3)];
%Y Cf. A253971.
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Feb 04 2015
|
