A109209 Palindromic primes pp such that digit sum of pp as substring appears more than once in pp.

1123211, 1412141, 3228223, 3773773, 7949497, 9495949, 100161001, 101060101, 101141101, 110232011, 111050111, 112030211, 112111211, 113111311, 121111121, 122363221, 122444221, 125252521, 131030131, 131111131, 138313831, 138383831

Offset: 1

Author

Zak Seidov, Jun 22 2005

Keywords

• base
• nonn

Examples

			9495949 is OK because its digit sum 49 appears twice in 9495949.
		

Crossrefs

Cf. A052019 Sum of digits of prime p is substring of p, A109208 Palindromic primes pp such that digit sum of pp is its substring.

Programs

Mathematica

bb={};Do[id=IntegerDigits[p=Prime[n]];If[StringCount[ToString[p], ToString[Plus@@id]]>1&&Reverse[id]==id, AppendTo[bb, p]], {n, 1000000}];A109209=bb