The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A104738 Positions of records in A104706. 4
 1, 2, 3, 5, 6, 9, 11, 15, 17, 21, 24, 29, 30, 39, 41, 51, 54, 59, 66, 75, 77, 87, 96, 105, 107, 120, 129, 137, 141, 161, 165, 180, 186, 201, 209, 221, 227, 249, 255, 270, 285, 306, 311, 324, 336, 359, 366, 390, 401, 420, 435, 459, 465, 495, 501, 527, 534 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS The entries in this sequence are the same as the partial sums of the independently derived A204539, for reasons unknown at present. - Colm Fagan, Jan 23 2012 LINKS Robert Israel, Table of n, a(n) for n = 1..5000 MATHEMATICA A104706 = NestList[Rest[Insert[#, #[], 2 + 2 #[]]]&, Range[m = 1000], m][[All, 1]]; rec = 0; Reap[For[k = 1, k <= Length[A104706], k++, ak = A104706[[k]]; If[ak > rec, rec = ak; Sow[k]]]][[2, 1]] (* Jean-François Alcover, Apr 11 2019, after Birkas Gyorgy in A104706 *) PROG (Basic) n=n+1; temp1=n^2; for k=(n-1) step -1 to 2; temp2=int(temp1/k); temp1=k*temp2; if int((temp2+k)/2))*2<>(temp2+k) then temp1=temp1-k; next k; a(n-1)=temp1/4 ' Colm Fagan, Nov 08 2015 (PARI) a(n) = {n++; temp1 = n^2; forstep (k= n-1, 2, -1, temp2 = temp1\k; temp1 = k*temp2; if (((temp2+k)\2)*2 != (temp2+k), temp1 -= k)); temp1/4; } \\ after Basic; Michel Marcus, Dec 04 2015 (MATLAB) function [ A ] = A104738( N ) % Produce a(1) : a(N) M = N; R = [1:M]; v = 1; A = 1; count = 1; n = 1; while count < N     n = n+1;     if 2*R(1)+1 > M         R = [R, (M+1):M+N];     end     R = [R(2:2*R(1)+1), R(1), R((2*R(1)+2) : M)];     if R(1) > v         A = [A, n];         v = R(1);         count = count+1;     end end end; A104738(100) CROSSREFS Cf. A104706, A104737, A104739, A204539. Sequence in context: A054639 A123399 A239010 * A319469 A325863 A028309 Adjacent sequences:  A104735 A104736 A104737 * A104739 A104740 A104741 KEYWORD nonn AUTHOR Zak Seidov, Mar 21 2005 EXTENSIONS Extended by Ray Chandler, Jan 19 2012 STATUS approved

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

Last modified July 15 02:31 EDT 2020. Contains 335762 sequences. (Running on oeis4.)