|
%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
|
