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,1

Comments

There are 15 such primes < 2000000.

Links

Table of n, a(n) for n=1..25.

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

Adjacent sequences: A076168 A076169 A076170 * A076172 A076173 A076174

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