A030160 Cubes in which parity of digits alternates.

0, 1, 8, 27, 125, 216, 343, 729, 5832, 12167, 614125, 658503, 1030301, 1092727, 4741632, 8741816, 27270901, 27818127, 47832147, 381078125, 4767078987, 14905098181, 21670967872, 496981290961, 874545616547, 903670125632

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Comments

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

Links

• Giovanni Resta, Table of n, a(n) for n = 1..350

Crossrefs

Cf. A030159, A030161, A030162, A030152.

Programs

Mathematica

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 *)

Extensions

Offset changed by Giovanni Resta, Aug 16 2018