Original entry on oeis.org
29, 1439, 4211, 7703, 12907, 14957, 16703, 20947, 29221, 31189, 33053, 36749, 44531, 51437, 90247, 115547, 124783, 127163, 133337, 144511, 146449, 151339, 157133, 166219, 169241, 180233, 181031, 185123, 197383, 223367, 225287, 240347
Offset: 1
-
b = {}; a = {}; Do[If[PrimeQ[((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2], AppendTo[a, ((Prime[n + 2] + Prime[n + 1])/2 + (Prime[n + 1] + Prime[n])/2)/2]], {n, 1,10000}];Do[If[PrimeQ[(a[[k + 1]] + a[[k]])/2], AppendTo[b, (a[[k + 1]] + a[[k]])/2]], {k, 1, Length[a] - 1}]; b
-
{m=250000;a=0;p=2;q=3;r=5;while(r<=m,if((p+r)/2==q,if(a>0,if(isprime(b=(a+q)/2),print1(b,",")));a=q);p=q;q=r;r=nextprime(r+1))} \\ Klaus Brockhaus, Jan 05 2007
A126556
Arithmetic mean of two consecutive prime interprimes of second order: interprimes of third order.
Original entry on oeis.org
734, 2825, 5957, 10305, 13932, 15830, 18825, 25084, 30205, 32121, 34901, 40640, 47984, 70842, 102897, 120165, 125973, 130250, 138924, 145480, 148894, 154236, 161676, 167730, 174737, 180632, 183077, 191253, 210375, 224327, 232817, 246285
Offset: 1
-
{m=250000;a=0;g=0;p=2;q=3;r=5;while(r<=m,if((p+r)/2==q,if(a>0,b=(a+q)/2;if(isprime(b),if(g>0,print1(h=(g+b)/2,","));g=b));a=q);p=q;q=r;r=nextprime(r+1))} \\ Klaus Brockhaus, Jan 11 2007
Original entry on oeis.org
174737, 224327, 433813, 541447, 787243, 969667, 980081, 1080787, 1286581, 1372979, 1534513, 1567037, 1570649, 1577189, 1659673, 1726993, 1931291, 2242883, 2282041, 2415557, 2460827, 3162503, 3711047, 4090787, 4450373
Offset: 1
Cf.
A006562 (balanced primes),
A024675 (interprimes),
A126554 (interprimes of second order),
A126555 (prime interprimes of second order),
A126556 (interprimes of third order).
-
{m=5000000;a=0;g=0;p=2;q=3;r=5;while(r<=m,if((p+r)/2==q,if(a>0,b=(a+q)/2;if(isprime(b),if(g>0,if(isprime(h=(g+b)/2),print1(h,",")));g=b));a=q);p=q;q=r; r=nextprime(r+1))} \\ Klaus Brockhaus, Jan 11 2007
A126558
Arithmetic mean of two consecutive prime interprimes of third order: interprimes of fourth order.
Original entry on oeis.org
199532, 329070, 487630, 664345, 878455, 974874, 1030434, 1183684, 1329780, 1453746, 1550775, 1568843, 1573919, 1618431, 1693333, 1829142, 2087087, 2262462, 2348799, 2438192, 2811665, 3436775, 3900917, 4270580, 4830665
Offset: 1
Cf.
A006562 (balanced primes),
A024675 (interprimes),
A126554 (interprimes of second order),
A126555 (prime interprimes of second order),
A126556 (interprimes of third order),
A126557 (prime interprimes of third order).
-
{m=5000000;a=0;g=0;e=0;p=2;q=3;r=5;while(r<=m,if((p+r)/2==q,if(a>0,b=(a+q)/2;if(isprime(b),if(g>0,h=(g+b)/2;if(isprime(h),if(e>0,f=(e+h)/2;print1(f,","));e=h));g=b));a=q);p=q;q=r;r=nextprime(r+1))} \\ Klaus Brockhaus, Jan 11 2007
Original entry on oeis.org
1693333, 14251277, 17306687, 18067739, 25852399, 29126567, 55781581, 62333321, 113347009, 173863769, 204308891, 211281809, 247612801, 256102939, 267030149, 267670129, 277108457, 291010691, 298502489, 337176617, 365570923, 370598051
Offset: 1
Cf.
A006562 (balanced primes),
A024675 (interprimes),
A126554 (interprimes of second order),
A126555 (prime interprimes of second order),
A126556 (interprimes of third order),
A126557 (prime interprimes of third order),
A126558 (interprimes of fourth order).
-
{m=400000000;a=0;g=0;e=0;p=2;q=3;r=5;while(r<=m,if((p+r)/2==q,if(a>0,b=(a+q)/2;if(isprime(b),if(g>0,h=(g+b)/2;if(isprime(h),if(e>0,f=(e+h)/2;if(isprime(f),print1(f,",")));e=h));g=b));a=q);p=q;q=r;r=nextprime(r+1))}
A126559
Least interprime of n-th order.
Original entry on oeis.org
4, 29, 734, 199532, 7972305, 731908877
Offset: 1
A024675(1) = 4, A126554(1) = 29, A126556(1) = 734, A126558(1) = 199532.
Showing 1-6 of 6 results.
Comments