+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (38G) CONNELL SEQUENCE, OEIS A001614 (/thread-3626.html)
(38G) CONNELL SEQUENCE, OEIS A001614 - Gerald H - 04-13-2015 07:31 AM
This programme installs symbolics in the Sequence Aplet to reproduce the Connell sequence
http://oeis.org/A001614
in U1, the partial sums
http://oeis.org/A122793
in U2, the complement of the Connell sequence
http://oeis.org/A118011
in U3 & the partial sums of U3
http://oeis.org/A171152
in U4.
RUN SEQSET:
RECURSE(U,2*N-U5(N),1,2)►U1(N):
CHECK 1:
RECURSE(U,N-U6(N)+N^2,1,3)►U2(N):
CHECK 2:
RECURSE(U,2*N+U5(N),3,6)►U3(N):
CHECK 3:
RECURSE(U,N+U6(N)+N^2,3,9)►U4(N):
CHECK 4:
RECURSE(U,ROUND(√(2*N),0),1,2)►U5(N):
RECURSE(U,U5(N)*(N+(1-U5(N)^2)/6),1,3)►U6(N):
SEQSET
SELECT Sequence:
UNCHECK 0:
0►NumFont:
0►Simult:
2►Angle:
1►InvCross:
1►NumStep:
1►Format:
1►NumCol:
1►NumStart:
6►NumRow:
RECURSE(U,0,0,0)►U1(N):
Ans►U2(N):
Ans►U3(N):
Ans►U4(N):
Ans►U5(N):
Ans►U6(N):
Ans►U7(N):
Ans►U8(N):
Ans►U9(N):
Ans►U0(N):