A351985 - OEIS

%I #24 Mar 24 2022 19:42:38

%S 0,1,8,27,64,125,216,343,512,729,1,0,7,26,63,124,215,342,511,728,8,7,

%T 0,19,56,117,208,335,504,721,27,26,19,0,37,98,189,316,485,702,64,63,

%U 56,37,0,61,152,279,448,665,125,124,117,98,61,0,91,218,387,604,216,215,208,189,152

%N If n = abcd... in decimal, a(n) = |a^3 - b^3 + c^3 - d^3 + ...|.

%p a:= n-> (l-> abs(add(l[i]^3*(-1)^i, i=1..nops(l))))(convert(n, base, 10)):

%p seq(a(n), n=0..64);  # _Alois P. Heinz_, Mar 24 2022

%t Table[Abs[Sum[(-1)^(k + 1)*Part[IntegerDigits[n]^3, k], {k, 1, Length[IntegerDigits[n]]}]], {n, 0, 100}]

%o (PARI) a(n) = my(d=digits(n)); abs(sum(k=1, #d, (-1)^k*d[k]^3)) \\ _Michel Marcus_, Feb 27 2022

%o (Python)

%o def A351985(n): return abs(sum((-1 if a%2 else 1)*int(b)**3 for a, b in enumerate(str(n)))) # _Chai Wah Wu_, Mar 09 2022

%Y Cf. A225693, A055012, A257588, A351877.

%K nonn,base

%O 0,3

%A _Luca Onnis_, Feb 27 2022