A097654 Numbers n such that n=|d_1!!-d_2!!+...+(-1)^(k-1)*d_k!!| where d_1 d_2 ... d_k is the decimal expansion of n.

1, 2, 3, 380

Offset

1,2

Links

Table of n, a(n) for n=1..4.

Example

380 is in the sequence because 380=|3!!-8!!+0!!|.

Mathematica

Do[h=IntegerDigits[n]; l=Length[h]; If[n==Abs[Sum[(-1)^(k-1) *h[[k]]!!, {k, l}]], Print[n]], {n, 4*9!!}]

Crossrefs

Cf. A097653, A097655, A097643.

Sequence in context: A375236 A110931 A355323 * A156986 A066849 A071219

Adjacent sequences: A097651 A097652 A097653 * A097655 A097656 A097657

Keyword

base,fini,full,nonn

Author

Farideh Firoozbakht, Sep 10 2004

Status

approved