|
|
|
31: 546!-1 -> 14130200926141832545..99999999999999999999 [1260 digits]
</pre>
=={{header|Factor}}==
{{works with|Factor|0.99 2022-04-03}}
<lang factor>USING: formatting kernel math math.primes ;
: .fp ( i n sgn f -- )
"%2d:%4d! %s 1 = %d\n" printf ;
[let
1 1 1 :> ( i! n! f! )
[ i 11 < ] [
f 1 - prime? [ i n "-" f .fp i 1 + i! ] when
f 1 + prime? [ i n "+" f .fp i 1 + i! ] when
n 1 + n!
f n * f!
] while
]</lang>
{{out}}
<pre>
1: 1! + 1 = 1
2: 2! + 1 = 2
3: 3! - 1 = 6
4: 3! + 1 = 6
5: 4! - 1 = 24
6: 6! - 1 = 720
7: 7! - 1 = 5040
8: 11! + 1 = 39916800
9: 12! - 1 = 479001600
10: 14! - 1 = 87178291200
</pre>
=={{header|J}}==
<lang J> (,. (-!)/"1)1>.(,. >.@(!inv)@<:) (#~ 1 p: ]) ~.,(!i.27x)+/1 _1
|