[go: up one dir, main page]

login
A076171
Primes p whose odd-position and even-position digits have the same sum of cubes.
2
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,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
Sequence in context: A076173 A100108 A099115 * A297057 A090102 A320625
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