%I #36 Jul 03 2016 00:14:41
%S 5,29,41609,4287599,16254449,87130709,118916729,157119089,173797289,
%T 180210059,207959879,309740999,349066439,356259989,401519399,
%U 473953229,705480749,912950249,994719629
%N Smallest member of Sophie Germain pair, wherein each member of the prime pair is the smallest of its prime quadruplets (p, p+2, p+8, p+12).
%C It is not known if there are infinitely many Sophie Germain pairs with this property.
%H Abhiram R Devesh and Dana Jacobsen, <a href="/A237256/b237256.txt">Table of n, a(n) for n = 1..1155</a> [first 155 terms from Abhiram R Devesh]
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SophieGermainPrime.html">Sophie Germain Prime</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Sophie_Germain_prime">Sophie Germain Prime</a>
%e a(1): p = 5; (2*p)+1 = 11; prime quadruplets (5,7,13,17); (11,13,19,23).
%e a(2): p = 29; (2*p)+1 = 59; prime quadruplets (29,31,37,41); (59,61,67,71).
%o (Python)
%o p1=2
%o n=2
%o count=0
%o while p1>2:
%o ....## Generate the a chain of numbers with length 4
%o ....cc=[]
%o ....cc.append(p1)
%o ....for i in range(1, n):
%o ........cc.append((2**(i)*p1+((2**i)-1)))
%o ....## chain entries + 2
%o ....cc2=[c+2 for c in cc]
%o ....## chain entries + 8
%o ....cc8=[c+8 for c in cc]
%o ....## chain entries + 12
%o ....cc12=[c+12 for c in cc]
%o ....## check if cc is a Sophie Germain Pair or not
%o ....## pf.isp_list returns True or false for a given list of numbers
%o ....## if they are prime or not
%o ....##
%o ....pcc=pf.isp_list(cc)
%o ....pcc2=pf.isp_list(cc2)
%o ....pcc8=pf.isp_list(cc8)
%o ....pcc12=pf.isp_list(cc12) ....## Number of primes for cc
%o ....npcc=pcc.count(True)
%o ....## Number of primes for cc2
%o ....npcc2=pcc2.count(True)
%o ....## Number of primes for cc8
%o ....npcc8=pcc8.count(True)
%o ....## Number of primes for cc12
%o ....npcc12=pcc12.count(True)
%o ....if npcc==n and npcc2==n and npcc8==n and npcc12==n:
%o ........print "For length ", n, " the series is : ", cc, " ,", cc2," , ",cc8, " and " cc12
%o ....p1=pf.nextp(p1)
%o (PARI) forprime(p=1, 1e9, my(t=2*p+1); if(isprime(t) && isprime(p+2) && isprime(p+8) && isprime(p+12) && isprime(t+2) && isprime(t+8) && isprime(t+12), print1(p, ", "))) \\ _Felix Fröhlich_, Jul 26 2014
%o (Perl) use ntheory ":all"; my @p = sieve_prime_cluster(1,2e9,2,8,12); my %h; undef @h{@p}; for (@p) { say if exists $h{2*$_+1} } # _Dana Jacobsen_, Oct 03 2015
%Y Cf. A005384, A233540.
%K nonn
%O 1,1
%A _Abhiram R Devesh_, Feb 05 2014
|