login
Numbers k such that sigma(k) plus the k-th prime is a prime.
2

%I #11 Aug 18 2024 03:58:48

%S 1,5,10,11,14,15,20,23,24,28,29,34,35,38,39,40,42,44,46,48,52,56,57,

%T 59,60,62,65,66,68,69,74,75,76,82,85,87,92,95,97,102,106,109,114,118,

%U 119,120,122,124,126,133,136,137,139,143,145,146,148,149,152,153,156

%N Numbers k such that sigma(k) plus the k-th prime is a prime.

%H Robert Israel, <a href="/A116033/b116033.txt">Table of n, a(n) for n = 1..10000</a>

%e sigma(145)+prime(145) = 1009 (prime).

%p select(k -> isprime(numtheory:-sigma(k) + ithprime(k)), [$1..1000]); # _Robert Israel_, Aug 18 2024

%t Select[Range[156],PrimeQ[DivisorSigma[1,#]+Prime[#]]&] (* _James C. McMahon_, Aug 18 2024 *)

%Y Cf. A116034.

%K nonn

%O 1,2

%A _Giovanni Resta_, Feb 13 2006