# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a076171
Showing 1-1 of 1

%I A076171 #15 May 20 2019 02:50:10
%S A076171 11,404167,476041,1041563,1060571,1069811,1089611,1089677,1140563,
%T A076171 1156403,1169801,1180691,1650413,1760897,1960877,2062891,2089621,
%U A076171 2260891,2289601,2960821,2962801,3046577,3047567,3056411,3146501
%N A076171 Primes p whose odd-position and even-position digits have the same sum of cubes.
%C A076171 There are 15 such primes < 2000000.
%e A076171 404167 is a term because 4^3 + 4^3 + 6^3 = 0^3 + 1^3 + 7^3 = 344.
%t A076171 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 *)
%K A076171 nonn,base
%O A076171 1,1
%A A076171 _Zak Seidov_, Nov 01 2002
%E A076171 More terms from _David Wasserman_, Apr 05 2005
%E A076171 Name edited by _Jon E. Schoenfield_, May 20 2019

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE