|
%I #10 Sep 08 2022 08:46:13
%S 180,205,223,258,297,326,350,424,502,514,521,548,666,757,765,796,804,
%T 861,909,1006,1098,1150,1264,1317,1348,1349,1400,1416,1592,1613,1663,
%U 1757,1821,1914,1939,2034,2048,2073,2085,2109,2164,2276,2316,2360,2380,2398,2655
%N Numbers n such that prime(n) + prime(n+4) + prime(n+5) + prime(n+7) + prime(n+8) = prime(n+1) + prime(n+2) + prime(n+3) + prime(n+6) + prime(n+9).
%H K. D. Bajpai, <a href="/A260265/b260265.txt">Table of n, a(n) for n = 1..10000</a>
%e 180 is in the list because 1069 + 1097 + 1103 + 1117 + 1123 = 1087 + 1091 + 1093 + 1109 + 1129.
%t Select[Range[5000], Prime[#] + Prime[# + 4] + Prime[# + 5] + Prime[# + 7] + Prime[# + 8] == Prime[# + 1] + Prime[# + 2] + Prime[# + 3] + Prime[# + 6] + Prime[# + 9] &]
%o (PARI) for(n=1,5000, if(prime(n) + prime(n+4) + prime(n+5) + prime(n+7) + prime(n+8) == prime(n+1) + prime(n+2) + prime(n+3) + prime(n+6) + prime(n+9), print1(n,", ")));
%o (Magma) [n: n in [1..3000] | NthPrime(n) + NthPrime(n+4)+ NthPrime(n+5)+ NthPrime(n+7)+ NthPrime(n+8) eq NthPrime(n+1)+ NthPrime(n+2)+ NthPrime(n+3)+ NthPrime(n+6)+ NthPrime(n+9)];
%Y Cf. A000040, A022885, A260179.
%K nonn
%O 1,1
%A _K. D. Bajpai_, Jul 21 2015
|
