|
%I #11 Sep 08 2022 08:45:11
%S 3,5,21,23,25,33,37,45,57,81,83,85,93,121,123,133,137,173,183,187,193,
%T 195,215,219,225,231,245,247,285,289,295,301,315,317,327,329,353,357,
%U 359,391,395,403,419,423,429,435,447,477,479,503,513,549,561,567,571
%N Numbers n such that n*prime(n)-2 is prime.
%C See also A086172, A086173, A086174, A086176, A086177.
%H Vincenzo Librandi, <a href="/A086175/b086175.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[1000], PrimeQ[ # Prime[ # ]-2]&]
%o (Magma) [n: n in [1..800] | IsPrime(n*NthPrime(n) - 2)]; // _Vincenzo Librandi_, Oct 05 2012
%Y Cf. A086172, A086173, A086174, A086176, A086177.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Jul 11 2003
|
