OFFSET
1,2
COMMENTS
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18 19 20 21
...
a(n) also is the concatenation of the terms of the n-th row of A056536. - Michel Marcus, Dec 14 2023
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..395
MAPLE
read("transforms"):
A079823aux := proc(n, k)
A000124(n)+k ;
end proc:
A079823 := proc(n)
local L, k, n0 ;
n0 := n-1 ;
L := [] ;
for k from 0 do
if k > n0-k then
break;
end if;
L := [op(L), A079823aux(n0-k, k)] ;
end do:
digcatL(L) ;
end proc: # R. J. Mathar, Aug 23 2012
# second Maple program:
T:= (i, j)-> i*(i-1)/2+j:
a:= n-> parse(cat(seq(T(n-j, j+1), j=0..(n-1)/2))):
seq(a(n), n=1..23); # Alois P. Heinz, Aug 03 2022
MATHEMATICA
Table[FromDigits[Join@@IntegerDigits[Table[Binomial[n-k+1, 2] + k, {k, Ceiling[n/2]}]]], {n, 30}] (* G. C. Greubel, Dec 13 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Feb 11 2003
EXTENSIONS
More terms from Jason D. W. Taff (jtaff(AT)jburroughs.org), Oct 31 2003
Corrected by Philippe Deléham, Feb 16 2004
STATUS
approved