A105453 - OEIS

%I #11 Jun 13 2017 16:02:18

%S 2,14,16,20,24,30,40,44,48,72,76,84,96,120,122,160,168,182,214,230,

%T 254,266,270,280,288,292,294,330,338,360,390,428,490,496,512,540,544,

%U 546,552,560,576,578,582,644,654,656,660,714,726,740,746,750,758,762

%N Numbers n such that prime(n) + n*prime(n+1) is prime.

%t bb={}; Do[If[PrimeQ[Prime[n]+n*Prime[n+1]], bb=Append[bb, n]], {n, 2, 400, 2}]; bb

%t Select[Range[2, 1200], PrimeQ[Prime[#] + # Prime[# + 1]] &] (* _Harvey P. Dale_, May 02 2012 *)

%o (PARI) is(n,p=prime(n))=isprime(p+nextprime(p+1)*n) \\ _Charles R Greathouse IV_, Jun 13 2017

%K nonn

%O 1,1

%A _Zak Seidov_, May 02 2005

%E More terms from Harvey P. Dale, May 02 2012