alle tal er li summen af factorial til deres digits.

1! + 4! + 5! = 1 + 24 + 120 = 145

Hvor er den øvre grænse? 1! og 2! er ikke inkluderet - der er ingen sum involveret.

factorial(9)
## [1] 362880

9999999 have to be an upper limit, as

7*factorial(9)
## [1] 2540160

is smaller than 9999999

fact <- factorial(1:9)
names(fact) <- as.character(1:9)
tibble(value = 100:125) |> 
    mutate(digs = str_split(value, "")) 
## # A tibble: 26 × 2
##    value digs     
##    <int> <list>   
##  1   100 <chr [3]>
##  2   101 <chr [3]>
##  3   102 <chr [3]>
##  4   103 <chr [3]>
##  5   104 <chr [3]>
##  6   105 <chr [3]>
##  7   106 <chr [3]>
##  8   107 <chr [3]>
##  9   108 <chr [3]>
## 10   109 <chr [3]>
## # ℹ 16 more rows