OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16156
PROG
(Scheme, with Antti Karttunen's IntSeq-library)
(define A244156 (MATCHING-POS 1 1 (lambda (k) (not (= k (CatBaseSum (A239903raw k))))))) ;; A239903raw given in A239903.
(define (CatBaseSum lista) (let loop ((digits (reverse lista)) (i 1) (s 0)) (if (null? digits) s (loop (cdr digits) (+ i 1) (+ s (* (car digits) (A000108 i)))))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 22 2014
STATUS
approved