A332841 Smaller members of emirp twins that are partial sums of smaller of emirp twins.

71, 18036881674937, 159410465301419, 178830865466087, 1326840443044577, 3800514323991101, 7228912129013327, 9266843869794767, 10342012683888551, 14243165111201909, 16576222389380579, 16662956005901237, 16776177756427421, 31392915728722181, 31476048510524069, 32561876698250297

Offset: 1

Author

Metin Sariyar, Feb 26 2020

Keywords

• nonn
• base

Comments

Smaller members of emirp twins that are partial sums of A175215.

Examples

			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.
		

Crossrefs

Cf. A006567, A175215.

Programs

Mathematica

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}]

Extensions

a(6)-a(16) from Giovanni Resta, Feb 26 2020