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,1

Comments

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

Links

Table of n, a(n) for n=1..16.

Example

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.

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

Crossrefs

Cf. A006567, A175215.

Sequence in context: A230378 A352732 A093176 * A057384 A240254 A228095

Adjacent sequences: A332838 A332839 A332840 * A332842 A332843 A332844

Keyword

nonn,base

Author

Metin Sariyar, Feb 26 2020

Extensions

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

Status

approved