OFFSET
0,3
COMMENTS
Here "aeration" means inserting zeros between the digits of factorial base representation of n. See the examples.
LINKS
FORMULA
EXAMPLE
n A007623(n) "aerated" and converted back to decimal gives
a(n)
0 0 0 0
1 1 1 1
2 10 100 6
3 11 101 7
4 20 200 12
5 21 201 13
6 100 10000 120
7 101 10001 121
8 110 10100 126
9 111 10101 127
10 120 10200 132
11 121 10201 133
12 200 20000 240
13 201 20001 241
14 210 20100 246
15 211 20101 247
16 220 20200 252
17 221 20201 253
18 300 30000 360
19 301 30001 361
20 310 30100 366
21 311 30101 367
22 320 30200 372
23 321 30201 373
PROG
(Scheme)
;; Standalone program:
(define (A276089 n) (let loop ((n n) (s 0) (f 1) (i 2) (j 2)) (if (zero? n) s (let ((d (modulo n i))) (loop (/ (- n d) i) (+ s (* f d)) (* j (+ 1 j) f) (+ 1 i) (+ 2 j))))))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Aug 19 2016
STATUS
approved