|
|
A097655
|
|
Numbers n such that n = d_1!!*d_2!!*...*d_k!! where d_1 d_2 ... d_k is the decimal expansion of n.
|
|
6
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
All terms are of the form 2^i*3^j*5^k*7^l.
|
|
LINKS
|
|
|
EXAMPLE
|
18432 is in the sequence because 18432 = 1!!*8!!*4!!*3!!*2!!.
|
|
MATHEMATICA
|
Do[h=IntegerDigits[n]; l=Length[h]; If[n==Product[h[[k]]!!, {k, l}], Print[n]], {n, 2000000000}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|