A076171 Primes p whose odd-position and even-position digits have the same sum of cubes.
11, 404167, 476041, 1041563, 1060571, 1069811, 1089611, 1089677, 1140563, 1156403, 1169801, 1180691, 1650413, 1760897, 1960877, 2062891, 2089621, 2260891, 2289601, 2960821, 2962801, 3046577, 3047567, 3056411, 3146501
Offset: 1
Examples
404167 is a term because 4^3 + 4^3 + 6^3 = 0^3 + 1^3 + 7^3 = 344.
Programs
-
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 *)
Extensions
More terms from David Wasserman, Apr 05 2005
Name edited by Jon E. Schoenfield, May 20 2019
Comments