login
Column index of A257503: If A257685(n) = 0, then a(n) = A257682(n), otherwise a(n) = a(A257685(n)).
9

%I #8 May 05 2015 14:00:11

%S 0,1,2,3,1,4,5,6,7,8,9,10,2,11,12,13,3,14,1,15,16,17,4,18,19,20,21,22,

%T 23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,5,43,44,

%U 45,6,46,47,48,49,50,51,52,7,53,54,55,8,56,9,57,58,59,10,60,2

%N Column index of A257503: If A257685(n) = 0, then a(n) = A257682(n), otherwise a(n) = a(A257685(n)).

%C a(0) = 0 by convention, because 0 is not present in arrays A257503 and A257505.

%H Antti Karttunen, <a href="/A257681/b257681.txt">Table of n, a(n) for n = 0..10080</a>

%F If A257685(n) = 0, then a(n) = A257682(n), otherwise a(n) = a(A257685(n)).

%o (Scheme, two versions, utilizing memoizing definec-macro)

%o (definec (A257681 n) (if (zero? (A257685 n)) (A257682 n) (A257681 (A257685 n))))

%o (definec (A257681 n) (if (or (zero? n) (= 1 (A257680 n))) (A257682 n) (A257681 (A257685 n))))

%Y Cf. A257680, A257682, A257685.

%Y Column index of A257503, row index of A257505.

%Y Cf. also A257679 (gives the other index).

%K nonn

%O 0,3

%A _Antti Karttunen_, May 04 2015