OFFSET
0,1
COMMENTS
Relates to the palindromic primes.
EXAMPLE
40127 because 4+0+1+2=7
MATHEMATICA
First[Last[Reap[i = 1; mx = 10^4; While[i <= mx, pr = Prime[i]; prdig = IntegerDigits[pr]; prlen = Length[prdig]; j = 1; While[j < prlen, prLeft = Take[prdig, {1, j}]; prRight = Take[prdig, {j + 1, prlen}]; If[Total[prLeft] != Total[prRight], j++; Continue[], Sow[pr]; Break[]]; ]; i++; ]; ]]]
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Janos Lobb (janos(AT)lobb.com), May 17 2006
STATUS
approved