|
%I #12 Mar 22 2020 10:08:26
%S 71,18036881674937,159410465301419,178830865466087,1326840443044577,
%T 3800514323991101,7228912129013327,9266843869794767,10342012683888551,
%U 14243165111201909,16576222389380579,16662956005901237,16776177756427421,31392915728722181,31476048510524069,32561876698250297
%N Smaller members of emirp twins that are partial sums of smaller of emirp twins.
%C Smaller members of emirp twins that are partial sums of A175215.
%e 71 + 1031 + 1151 + ... + 901814489 = 18036881674937. 71, 1031, 1151, ..., 901814489 are all smaller members of emirp twins and 18036881674937 is a smaller of an emirp twin pair.
%t s=0; Do[If[Prime[n]-Prime[n-1]==2 && PrimeQ[IntegerReverse[Prime[n]]] && PrimeQ[IntegerReverse[Prime[n-1]]] && !PalindromeQ[Prime[n]] && !PalindromeQ[Prime[n-1]], s=s+Prime[n-1]; If[PrimeQ[s] && PrimeQ[s+2] && PrimeQ[IntegerReverse[s]] && PrimeQ[IntegerReverse[s+2]] && !PalindromeQ[s] && !PalindromeQ[s+2], Print[{Prime[n-1],s}]]], {n,13,10^9}]
%Y Cf. A006567, A175215.
%K nonn,base
%O 1,1
%A _Metin Sariyar_, Feb 26 2020
%E a(6)-a(16) from _Giovanni Resta_, Feb 26 2020
|
