A141069 List of different composites in Pascal-like triangles with index of asymmetry y = 3 and index of obliqueness z = 0 or z = 1.
4, 8, 16, 35, 60, 72, 116, 148, 224, 303, 432, 308, 618, 833, 636, 1257, 1606, 1313, 2550, 3096, 1314, 2709, 5160, 5968, 2715, 5584, 10418, 11504, 5609, 11499, 20991, 22175, 23655, 42215, 42744, 11588, 23934, 48607, 82392, 84752, 23941, 99763, 158816, 169880
Offset: 1
Keywords
Examples
Pascal-like triangle with y = 3 and z = 0 (i.e., A140996) begins as follows: 1, so no composites. 1 1, so no composites. 1 2 1, so no composites. 1 4 2 1, so a(1) = 4. 1 8 4 2 1, so a(2) = 8. 1 16 8 4 2 1, so a(3) = 16. 1 31 17 8 4 2 1, so no new composites. 1 60 35 17 8 4 2 1, so a(4) = 35 and a(5) = 60. 1 116 72 35 17 8 4 2 1, so a(6) = 72 and a(7) = 116. 1 224 148 72 35 17 8 4 2 1, so a(8) = 148 and a(9) = 224. 1 432 303 149 72 35 17 8 4 2 1, so a(10) = 303 and a(11) = 432. ... [edited by _Petros Hadjicostas_, Jun 13 2019]
Links
- Petros Hadjicostas, Table of n, a(n) for n = 1..110
- Juri-Stepan Gerasimov, Stepan's triangles and Pascal's triangle are connected by the recurrence relation ...
Crossrefs
Programs
-
Maple
# This is a modification of R. J. Mathar's program from sequence A141031 (for the case y = 4 and z = 0). # Definition of sequence A140996 (y = 3 and z = 0): A140996 := proc(n, k) option remember; if k < 0 or n < k then 0; elif k = 0 or k = n then 1; elif k = n - 1 then 2; elif k = n - 2 then 4; elif k = n - 3 then 8; else procname(n - 1, k) + procname(n - 2, k) + procname(n - 3, k) + procname(n - 4, k) + procname(n - 4, k - 1); end if; end proc; # Definition of current sequence: A141069 := proc(nmax) local a, b, n, k, new; a := []; for n from 0 to nmax do b := []; for k from 0 to n do new := A140996(n, k); if not (new = 1 or isprime(new) or new in a or new in b) then b := [op(b), new]; end if; end do; a := [op(a), op(sort(b))]; end do; RETURN(a); end proc; # Generation of current sequence until row n = 30: A141069(30); # If one wishes the composites to be sorted, then replace RETURN(a) with RETURN(sort(a)) in the above Maple code. In such a case, however, the output may not necessarily be uniquely defined (because it changes with the value of n). - Petros Hadjicostas, Jun 15 2019
Extensions
Partially edited by N. J. A. Sloane, Jul 18 2008
More terms from Petros Hadjicostas, Jun 13 2019
Comments