|
%I #14 Mar 16 2019 15:21:33
%S 7,13,31,43,73,241,421,463,601,1093,1483,1723,2551,2971,3541,4423,
%T 8011,10303,17293,19183,20023,22621,23563,24181,27061,31153,35533,
%U 41413,42643,43891,46441,47743,53593,55933,60763,83233,84391,95791,98911,123553,143263,156421,164431
%N Brazilian primes that are also the greater of a pair of twin primes.
%o (PARI) lista(lim)=my(v=List(), t, k); for(n=2, sqrt(lim), t=1+n; k=1; while((t+=n^k++)<=lim, if(isprime(t) && isprime(t-2), listput(v, t)))); v = vecsort(Vec(v), , 8); \\ _Michel Marcus_, Mar 15 2019
%Y Intersection of A006512 and A085104.
%Y Cf. A306845, A306849.
%K nonn,base
%O 1,1
%A _Michel Marcus_, Mar 15 2019
|
