OFFSET
1,1
COMMENTS
There are 15 such primes < 2000000.
EXAMPLE
404167 is a term because 4^3 + 4^3 + 6^3 = 0^3 + 1^3 + 7^3 = 344.
MATHEMATICA
cbQ[n_]:=Module[{idn=IntegerDigits[n], a, l, r}, If[OddQ[Length[idn]], idn=IntegerDigits[10n]]; a=Transpose[Partition[idn, 2]]; l=First[a]; r=Last[a]; Total[l^3]==Total[r^3]]; Select[Prime[Range[300000]], cbQ] (* Harvey P. Dale, Jan 30 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 01 2002
EXTENSIONS
More terms from David Wasserman, Apr 05 2005
Name edited by Jon E. Schoenfield, May 20 2019
STATUS
approved