cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A097653 Numbers n such that n=d_1!!+d_2!!+...+d_k!! where d_1 d_2 ... d_k is the decimal expansion of n.

Original entry on oeis.org

1, 2, 3, 107
Offset: 1

Views

Author

Farideh Firoozbakht, Sep 10 2004

Keywords

Examples

			107 is in the sequence because 1!!+0!!+7!!=1+1+7*5*3*1=107.

Crossrefs

Cf. A097654, A097655, A097643.

Programs

  • Mathematica
    Do[h=IntegerDigits[n];l=Length[h];If[n==Sum[h[[k]]!!, {k, l}], Print[n]], {n, 4*9!!}]

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.

Original entry on oeis.org

1, 2, 3, 15, 18432, 75600, 276531978240000, 4810168001497883738112000, 215788176336727572480000000, 2178419737991700039289327133392896000000000000
Offset: 1

Views

Author

Farideh Firoozbakht, Sep 10 2004

Keywords

Comments

All terms are of the form 2^i*3^j*5^k*7^l.

Examples

			18432 is in the sequence because 18432 = 1!!*8!!*4!!*3!!*2!!.

Crossrefs

Cf. A097653, A097654, A097643, A102279.

Programs

  • Mathematica
    Do[h=IntegerDigits[n];l=Length[h];If[n==Product[h[[k]]!!, {k, l}], Print[n]], {n, 2000000000}]

Extensions

More terms from Farideh Firoozbakht, Jan 08 2005
Showing 1-2 of 2 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.