A376257 a(n) = (n - c(n))*(-1)^c(n), where c(n) is the product of the digits of n (A007954).

0, 0, 0, 0, 0, 0, 0, 0, 0, 10, -10, 10, -10, 10, -10, 10, -10, 10, -10, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 30, -28, 26, -24, 22, -20, 18, -16, 14, -12, 40, 37, 34, 31, 28, 25, 22, 19, 16, 13, 50, -46, 42, -38, 34, -30, 26, -22, 18, -14, 60, 55, 50, 45, 40, 35, 30, 25, 20, 15, 70, -64, 58

Offset

1,10

Comments

There is an interesting pattern on the graph of the sequence.

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Formula

a(n) = (n-A007954(n)) * (-1)^A007954(n).

Example

For n = 129: 1*2*9=18. So a(n) = (129-18)*(-1)^18 = 111.

Mathematica

A376257[n_] := (n - #)*(-1)^# & [Times @@ IntegerDigits[n]];
Array[A376257, 100] (* Paolo Xausa, Dec 10 2024 *)

Crossrefs

Cf. A007954, A070565.

Sequence in context: A109751 A160941 A070565 * A169932 A245403 A091837

Adjacent sequences: A376254 A376255 A376256 * A376258 A376259 A376260

Keyword

sign,base,look

Author

Stuart Coe, Sep 17 2024

Status

approved