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
Examples
380 is in the sequence because 380=|3!!-8!!+0!!|.
Programs
-
Mathematica
Do[h=IntegerDigits[n];l=Length[h];If[n==Abs[Sum[(-1)^(k-1) *h[[k]]!!, {k, l}]], Print[n]], {n, 4*9!!}]