|
%I #11 Aug 17 2018 10:58:51
%S 0,1,8,27,125,216,343,729,5832,12167,614125,658503,1030301,1092727,
%T 4741632,8741816,27270901,27818127,47832147,381078125,4767078987,
%U 14905098181,21670967872,496981290961,874545616547,903670125632
%N Cubes in which parity of digits alternates.
%C The number ((1+10^2)*(1+10^8)*(1+10^32)*(1+10^128)*(1+10^512))^3 is a term of the sequence. - _Giovanni Resta_, Aug 16 2018
%H Giovanni Resta, <a href="/A030160/b030160.txt">Table of n, a(n) for n = 1..350</a>
%t altQ[n_] := n < 10 || Union[Total /@ Partition[ Mod[ IntegerDigits@n, 2], 2, 1]] == {1}; Select[ Range[0, 10^4]^3, altQ[#] &] (* _Giovanni Resta_, Aug 16 2018 *)
%Y Cf. A030159, A030161, A030162, A030152.
%K nonn,base
%O 1,3
%A _Patrick De Geest_
%E Offset changed by _Giovanni Resta_, Aug 16 2018
|
