// fltk 7Fl_Tile 32 63 1061 137 25
[
// fltk N4xcas19Multiline_Input_tabE 32 63 1061 30 25
f(n):=gcd(4*n+1,5*n+3);
,
// fltk N4xcas10Log_OutputE 32 93 1061 54 25
// Parsing f£// Sucess compiling f£
,
// fltk N4xcas8EquationE 32 147 1061 53 25
 (n)->gcd(4*n+1,5*n+3)
]
,
// fltk 7Fl_Tile 32 202 1061 36 25
[
// fltk N4xcas23Comment_Multiline_InputE 32 202 1061 35 25
Calcul direct des 25 premieres valeurs de f, ou des 100 premieres valeurs au tableur
,
// fltk N4xcas10Log_OutputE 32 237 1061 1 25

]
,
// fltk 7Fl_Tile 32 240 1061 84 25
[
// fltk N4xcas19Multiline_Input_tabE 32 240 1061 30 25
f(n)$(n=0..25)
,
// fltk N4xcas10Log_OutputE 32 270 1061 1 25

,
// fltk N4xcas8EquationE 32 271 1061 53 25
1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,1,1,1
]
,
// fltk 7Fl_Tile 32 326 1061 453 25
[
// fltk N4xcas13Tableur_GroupE 32 326 1061 452 25
1 1 1 0 spreadsheet[[[n,n,[0,[-5.0,5.0,-5.0,5.0],8,[1.0,1.0],1,1,0]],[4*n+1,4*n+1,2],[5*n+3,5*n+3,2],["pgcd","pgcd",2]],[[0,0,2],[=4*A1+1,1,2],[=5*A1+3,3,2],[=gcd(B1,C1),1,2]],[[=A1+1,1,2],[=4*A2+1,5,2],[=5*A2+3,8,2],[=gcd(B2,C2),1,2]],[[=A2+1,2,2],[=4*A3+1,9,2],[=5*A3+3,13,2],[=gcd(B3,C3),1,2]],[[=A3+1,3,2],[=4*A4+1,13,2],[=5*A4+3,18,2],[=gcd(B4,C4),1,2]],[[=A4+1,4,2],[=4*A5+1,17,2],[=5*A5+3,23,2],[=gcd(B5,C5),1,2]],[[=A5+1,5,2],[=4*A6+1,21,2],[=5*A6+3,28,2],[=gcd(B6,C6),7,2]],[[=A6+1,6,2],[=4*A7+1,25,2],[=5*A7+3,33,2],[=gcd(B7,C7),1,2]],[[=A7+1,7,2],[=4*A8+1,29,2],[=5*A8+3,38,2],[=gcd(B8,C8),1,2]],[[=A8+1,8,2],[=4*A9+1,33,2],[=5*A9+3,43,2],[=gcd(B9,C9),1,2]],[[=A9+1,9,2],[=4*A10+1,37,2],[=5*A10+3,48,2],[=gcd(B10,C10),1,2]],[[=A10+1,10,2],[=4*A11+1,41,2],[=5*A11+3,53,2],[=gcd(B11,C11),1,2]],[[=A11+1,11,2],[=4*A12+1,45,2],[=5*A12+3,58,2],[=gcd(B12,C12),1,2]],[[=A12+1,12,2],[=4*A13+1,49,2],[=5*A13+3,63,2],[=gcd(B13,C13),7,2]],[[=A13+1,13,2],[=4*A14+1,53,2],[=5*A14+3,68,2],[=gcd(B14,C14),1,2]],[[=A14+1,14,2],[=4*A15+1,57,2],[=5*A15+3,73,2],[=gcd(B15,C15),1,2]],[[=A15+1,15,2],[=4*A16+1,61,2],[=5*A16+3,78,2],[=gcd(B16,C16),1,2]],[[=A16+1,16,2],[=4*A17+1,65,2],[=5*A17+3,83,2],[=gcd(B17,C17),1,2]],[[=A17+1,17,2],[=4*A18+1,69,2],[=5*A18+3,88,2],[=gcd(B18,C18),1,2]],[[=A18+1,18,2],[=4*A19+1,73,2],[=5*A19+3,93,2],[=gcd(B19,C19),1,2]],[[=A19+1,19,2],[=4*A20+1,77,2],[=5*A20+3,98,2],[=gcd(B20,C20),7,2]],[[=A20+1,20,2],[=4*A21+1,81,2],[=5*A21+3,103,2],[=gcd(B21,C21),1,2]],[[=A21+1,21,2],[=4*A22+1,85,2],[=5*A22+3,108,2],[=gcd(B22,C22),1,2]],[[=A22+1,22,2],[=4*A23+1,89,2],[=5*A23+3,113,2],[=gcd(B23,C23),1,2]],[[=A23+1,23,2],[=4*A24+1,93,2],[=5*A24+3,118,2],[=gcd(B24,C24),1,2]],[[=A24+1,24,2],[=4*A25+1,97,2],[=5*A25+3,123,2],[=gcd(B25,C25),1,2]],[[=A25+1,25,2],[=4*A26+1,101,2],[=5*A26+3,128,2],[=gcd(B26,C26),1,2]],[[=A26+1,26,2],[=4*A27+1,105,2],[=5*A27+3,133,2],[=gcd(B27,C27),7,2]],[[=A27+1,27,2],[=4*A28+1,109,2],[=5*A28+3,138,2],[=gcd(B28,C28),1,2]],[[=A28+1,28,2],[=4*A29+1,113,2],[=5*A29+3,143,2],[=gcd(B29,C29),1,2]],[[=A29+1,29,2],[=4*A30+1,117,2],[=5*A30+3,148,2],[=gcd(B30,C30),1,2]],[[=A30+1,30,2],[=4*A31+1,121,2],[=5*A31+3,153,2],[=gcd(B31,C31),1,2]],[[=A31+1,31,2],[=4*A32+1,125,2],[=5*A32+3,158,2],[=gcd(B32,C32),1,2]],[[=A32+1,32,2],[=4*A33+1,129,2],[=5*A33+3,163,2],[=gcd(B33,C33),1,2]],[[=A33+1,33,2],[=4*A34+1,133,2],[=5*A34+3,168,2],[=gcd(B34,C34),7,2]],[[=A34+1,34,2],[=4*A35+1,137,2],[=5*A35+3,173,2],[=gcd(B35,C35),1,2]],[[=A35+1,35,2],[=4*A36+1,141,2],[=5*A36+3,178,2],[=gcd(B36,C36),1,2]],[[=A36+1,36,2],[=4*A37+1,145,2],[=5*A37+3,183,2],[=gcd(B37,C37),1,2]],[[=A37+1,37,2],[=4*A38+1,149,2],[=5*A38+3,188,2],[=gcd(B38,C38),1,2]],[[=A38+1,38,2],[=4*A39+1,153,2],[=5*A39+3,193,2],[=gcd(B39,C39),1,2]],[[=A39+1,39,2],[=4*A40+1,157,2],[=5*A40+3,198,2],[=gcd(B40,C40),1,2]],[[=A40+1,40,2],[=4*A41+1,161,2],[=5*A41+3,203,2],[=gcd(B41,C41),7,2]],[[=A41+1,41,2],[=4*A42+1,165,2],[=5*A42+3,208,2],[=gcd(B42,C42),1,2]],[[=A42+1,42,2],[=4*A43+1,169,2],[=5*A43+3,213,2],[=gcd(B43,C43),1,2]],[[=A43+1,43,2],[=4*A44+1,173,2],[=5*A44+3,218,2],[=gcd(B44,C44),1,2]],[[=A44+1,44,2],[=4*A45+1,177,2],[=5*A45+3,223,2],[=gcd(B45,C45),1,2]],[[=A45+1,45,2],[=4*A46+1,181,2],[=5*A46+3,228,2],[=gcd(B46,C46),1,2]],[[=A46+1,46,2],[=4*A47+1,185,2],[=5*A47+3,233,2],[=gcd(B47,C47),1,2]],[[=A47+1,47,2],[=4*A48+1,189,2],[=5*A48+3,238,2],[=gcd(B48,C48),7,2]],[[=A48+1,48,2],[=4*A49+1,193,2],[=5*A49+3,243,2],[=gcd(B49,C49),1,2]],[[=A49+1,49,2],[=4*A50+1,197,2],[=5*A50+3,248,2],[=gcd(B50,C50),1,2]],[[=A50+1,50,2],[=4*A51+1,201,2],[=5*A51+3,253,2],[=gcd(B51,C51),1,2]],[[=A51+1,51,2],[=4*A52+1,205,2],[=5*A52+3,258,2],[=gcd(B52,C52),1,2]],[[=A52+1,52,2],[=4*A53+1,209,2],[=5*A53+3,263,2],[=gcd(B53,C53),1,2]],[[=A53+1,53,2],[=4*A54+1,213,2],[=5*A54+3,268,2],[=gcd(B54,C54),1,2]],[[=A54+1,54,2],[=4*A55+1,217,2],[=5*A55+3,273,2],[=gcd(B55,C55),7,2]],[[=A55+1,55,2],[=4*A56+1,221,2],[=5*A56+3,278,2],[=gcd(B56,C56),1,2]],[[=A56+1,56,2],[=4*A57+1,225,2],[=5*A57+3,283,2],[=gcd(B57,C57),1,2]],[[=A57+1,57,2],[=4*A58+1,229,2],[=5*A58+3,288,2],[=gcd(B58,C58),1,2]],[[=A58+1,58,2],[=4*A59+1,233,2],[=5*A59+3,293,2],[=gcd(B59,C59),1,2]],[[=A59+1,59,2],[=4*A60+1,237,2],[=5*A60+3,298,2],[=gcd(B60,C60),1,2]],[[=A60+1,60,2],[=4*A61+1,241,2],[=5*A61+3,303,2],[=gcd(B61,C61),1,2]],[[=A61+1,61,2],[=4*A62+1,245,2],[=5*A62+3,308,2],[=gcd(B62,C62),7,2]],[[=A62+1,62,2],[=4*A63+1,249,2],[=5*A63+3,313,2],[=gcd(B63,C63),1,2]],[[=A63+1,63,2],[=4*A64+1,253,2],[=5*A64+3,318,2],[=gcd(B64,C64),1,2]],[[=A64+1,64,2],[=4*A65+1,257,2],[=5*A65+3,323,2],[=gcd(B65,C65),1,2]],[[=A65+1,65,2],[=4*A66+1,261,2],[=5*A66+3,328,2],[=gcd(B66,C66),1,2]],[[=A66+1,66,2],[=4*A67+1,265,2],[=5*A67+3,333,2],[=gcd(B67,C67),1,2]],[[=A67+1,67,2],[=4*A68+1,269,2],[=5*A68+3,338,2],[=gcd(B68,C68),1,2]],[[=A68+1,68,2],[=4*A69+1,273,2],[=5*A69+3,343,2],[=gcd(B69,C69),7,2]],[[=A69+1,69,2],[=4*A70+1,277,2],[=5*A70+3,348,2],[=gcd(B70,C70),1,2]],[[=A70+1,70,2],[=4*A71+1,281,2],[=5*A71+3,353,2],[=gcd(B71,C71),1,2]],[[=A71+1,71,2],[=4*A72+1,285,2],[=5*A72+3,358,2],[=gcd(B72,C72),1,2]],[[=A72+1,72,2],[=4*A73+1,289,2],[=5*A73+3,363,2],[=gcd(B73,C73),1,2]],[[=A73+1,73,2],[=4*A74+1,293,2],[=5*A74+3,368,2],[=gcd(B74,C74),1,2]],[[=A74+1,74,2],[=4*A75+1,297,2],[=5*A75+3,373,2],[=gcd(B75,C75),1,2]],[[=A75+1,75,2],[=4*A76+1,301,2],[=5*A76+3,378,2],[=gcd(B76,C76),7,2]],[[=A76+1,76,2],[=4*A77+1,305,2],[=5*A77+3,383,2],[=gcd(B77,C77),1,2]],[[=A77+1,77,2],[=4*A78+1,309,2],[=5*A78+3,388,2],[=gcd(B78,C78),1,2]],[[=A78+1,78,2],[=4*A79+1,313,2],[=5*A79+3,393,2],[=gcd(B79,C79),1,2]],[[=A79+1,79,2],[=4*A80+1,317,2],[=5*A80+3,398,2],[=gcd(B80,C80),1,2]],[[=A80+1,80,2],[=4*A81+1,321,2],[=5*A81+3,403,2],[=gcd(B81,C81),1,2]],[[=A81+1,81,2],[=4*A82+1,325,2],[=5*A82+3,408,2],[=gcd(B82,C82),1,2]],[[=A82+1,82,2],[=4*A83+1,329,2],[=5*A83+3,413,2],[=gcd(B83,C83),7,2]],[[=A83+1,83,2],[=4*A84+1,333,2],[=5*A84+3,418,2],[=gcd(B84,C84),1,2]],[[=A84+1,84,2],[=4*A85+1,337,2],[=5*A85+3,423,2],[=gcd(B85,C85),1,2]],[[=A85+1,85,2],[=4*A86+1,341,2],[=5*A86+3,428,2],[=gcd(B86,C86),1,2]],[[=A86+1,86,2],[=4*A87+1,345,2],[=5*A87+3,433,2],[=gcd(B87,C87),1,2]],[[=A87+1,87,2],[=4*A88+1,349,2],[=5*A88+3,438,2],[=gcd(B88,C88),1,2]],[[=A88+1,88,2],[=4*A89+1,353,2],[=5*A89+3,443,2],[=gcd(B89,C89),1,2]],[[=A89+1,89,2],[=4*A90+1,357,2],[=5*A90+3,448,2],[=gcd(B90,C90),7,2]],[[=A90+1,90,2],[=4*A91+1,361,2],[=5*A91+3,453,2],[=gcd(B91,C91),1,2]],[[=A91+1,91,2],[=4*A92+1,365,2],[=5*A92+3,458,2],[=gcd(B92,C92),1,2]],[[=A92+1,92,2],[=4*A93+1,369,2],[=5*A93+3,463,2],[=gcd(B93,C93),1,2]],[[=A93+1,93,2],[=4*A94+1,373,2],[=5*A94+3,468,2],[=gcd(B94,C94),1,2]],[[=A94+1,94,2],[=4*A95+1,377,2],[=5*A95+3,473,2],[=gcd(B95,C95),1,2]],[[=A95+1,95,2],[=4*A96+1,381,2],[=5*A96+3,478,2],[=gcd(B96,C96),1,2]],[[=A96+1,96,2],[=4*A97+1,385,2],[=5*A97+3,483,2],[=gcd(B97,C97),7,2]],[[=A97+1,97,2],[=4*A98+1,389,2],[=5*A98+3,488,2],[=gcd(B98,C98),1,2]],[[=A98+1,98,2],[=4*A99+1,393,2],[=5*A99+3,493,2],[=gcd(B99,C99),1,2]],[[=A99+1,99,2],[=4*A100+1,397,2],[=5*A100+3,498,2],[=gcd(B100,C100),1,2]]]
,
// fltk N4xcas10Log_OutputE 32 778 1061 1 25

]
,
// fltk 7Fl_Tile 32 781 1061 36 25
[
// fltk N4xcas23Comment_Multiline_InputE 32 781 1061 35 25
Le pgcd semble etre 1 ou 7, avec 7 toutes les 7 fois
,
// fltk N4xcas10Log_OutputE 32 816 1061 1 25

]
,
// fltk 7Fl_Tile 32 819 1061 86 25
[
// fltk N4xcas19Multiline_Input_tabE 32 819 1061 30 25
egcd(4*n+1,5*n+3,n);
,
// fltk N4xcas10Log_OutputE 32 849 1061 1 25

,
// fltk N4xcas8EquationE 32 850 1061 55 25
[5,-4,-7]
]
,
// fltk 7Fl_Tile 32 907 1061 85 25
[
// fltk N4xcas19Multiline_Input_tabE 32 907 1061 30 25
solve((4*n+1)%7,n)
,
// fltk N4xcas10Log_OutputE 32 937 1061 1 25

,
// fltk N4xcas8EquationE 32 938 1061 54 25
[(-2)%7]
]
,
// fltk 7Fl_Tile 32 994 1061 31 25
[
// fltk N4xcas19Multiline_Input_tabE 32 994 1061 30 25

,
// fltk N4xcas10Log_OutputE 32 1024 1061 1 25

]