[go: up one dir, main page]

login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
Revision History for A081521 (Underlined text is an addition; strikethrough text is a deletion.)

Showing entries 1-10 | older changes
A081521 Triangle read by rows: row n contains n terms in increasing order, relatively prime to n, whose sum is a multiple of n and such that the row contains the smallest possible subset of consecutive numbers starting with 1.
(history; published version)
#16 by Peter Luschny at Sun May 24 04:02:29 EDT 2020
STATUS

editing

approved

#15 by Peter Luschny at Sun May 24 04:02:22 EDT 2020
EXTENSIONS

MoreName corrected and more terms from Jinyuan Wang, May 24 2020

#14 by Jinyuan Wang at Sun May 24 00:01:25 EDT 2020
NAME

Triangle read by rows: row n contains n terms in increasing order, relatively prime to n, whose sum is a multiple of n and such that the row contains the largestsmallest possible subset of consecutive numbers starting with 1.

DATA

1, 1, 3, 1, 4, 7, 1, 3, 5, 7, 1, 2, 3, 6, 8, 1, 5, 7, 11, 13, 17, 1, 2, 3, 4, 5, 8, 12, 1, 3, 5, 7, 9, 11, 13, 15, 1, 2, 4, 5, 7, 8, 10, 13, 22, 1, 3, 7, 9, 11, 13, 17, 19, 21, 29, 1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 20

PROG

(PARI) row(n) = {my(m=n*(n-1)/2, v); forstep(k=m+n/(2-n%2), oo, n, v=List([]); for(i=2, k-m, if(gcd(n, i)==1, listput(v, i))); if(#v>n-2, forsubset([#v, n-1], w, if(r=1+sum(i=1, n-1, v[w[i]])==k, return(concat(1, vector(n-1, i, v[w[i]]))))))); } \\ Jinyuan Wang, May 24 2020

KEYWORD

more,nonn,tabl,more

EXTENSIONS

More terms from Jinyuan Wang, May 24 2020

STATUS

approved

editing

Discussion
Sun May 24 01:56
Michel Marcus: needs extension Name corrected by
#13 by Susanna Cuyler at Sun Nov 24 09:58:20 EST 2019
STATUS

reviewed

approved

#12 by Joerg Arndt at Sun Nov 24 04:03:58 EST 2019
STATUS

proposed

reviewed

#11 by Michel Marcus at Sun Nov 24 04:03:23 EST 2019
STATUS

editing

proposed

#10 by Michel Marcus at Sun Nov 24 04:03:14 EST 2019
EXAMPLE

Triangle begins:

1;

1,, 3;

1,, 4,, 7;

1,, 3,, 5,, 7;

1,, 2,, 3,, 6,, 8;

1,, 5,, 7,, 11,, 13,, 17;

1,, 2,, 3,, 4,, 5,, 8,, 12; ...;

...

STATUS

proposed

editing

#9 by Joerg Arndt at Sun Nov 24 04:01:12 EST 2019
STATUS

editing

proposed

#8 by Joerg Arndt at Sun Nov 24 04:00:55 EST 2019
EXAMPLE

1; 1,3; 1,4,7; 1,3,5,7; 1,2,3,6,8; 1,5,7,11,13,17; 1,2,3,4,5,8,12; ...

1;

1,3;

1,4,7;

1,3,5,7;

1,2,3,6,8;

1,5,7,11,13,17;

1,2,3,4,5,8,12; ...

STATUS

proposed

editing

#7 by Michel Marcus at Sun Nov 24 03:19:11 EST 2019
STATUS

editing

proposed

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 1 15:20 EDT 2024. Contains 375591 sequences. (Running on oeis4.)