A349315 Ordinal transform of A348674.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60
Offset: 0
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..65536
Programs
-
Maple
b:= proc(s) option remember; (n-> {parse(s), seq(seq(seq(x+y, y=b(s[i+1..n])), x=b(s[1..i])), i=1..n-1)})(length(s)) end: p:= proc() 0 end: a:= proc(n) option remember; local t; t:= nops(b(""||n)); p(t):= p(t)+1 end: seq(a(n), n=0..100);
Formula
a(n) = 1 <=> n in { A349316 }.
Comments