A105962 - OEIS

%I #6 Apr 10 2020 08:14:35

%S 2,30,38,44,74,82,88,96,106,114,132,138,140,160,162,184,230,276,278,

%T 280,298,304,316,318,332,342,414,420,428,450,470,480,540,580,584,600,

%U 638,668,672,678,680,684,728,750,754,766,768,788,798,848,858,860,902,930

%N Numbers k such that prime(k^2) - k is prime.

%H Jinyuan Wang, <a href="/A105962/b105962.txt">Table of n, a(n) for n = 1..500</a>

%t Select[Range[1000], PrimeQ[Prime[ #^2] - # ] &]

%o (PARI) is(k) = isprime(prime(k^2)-k); \\ _Jinyuan Wang_, Apr 10 2020

%Y Cf. A064269 (prime(k) - k is prime), A130135 (prime(k^3) - k is prime).

%K nonn

%O 1,1

%A _Tanya Khovanova_, Dec 26 2006