proposed
approved
proposed
approved
editing
proposed
Antti Karttunen, <a href="/A244156/b244156.txt">Table of n, a(n) for n = 1..16156</a>
allocated for Antti KarttunenNumbers k such that A239903(k) when viewed as a simple .. is different from k.
10, 11, 12, 13, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 52, 53, 54, 55, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105
1,1
(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)))))))
allocated
nonn
Antti Karttunen, Jun 22 2014
approved
editing
allocated for Antti Karttunen
allocated
approved