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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A230742 Successive quadruplets 30*q, 30*q-5, 30*q+5, 30*q+10 in A064413(n). 0
 60, 55, 65, 70, 90, 85, 95, 100, 120, 115, 125, 130, 150, 145, 155, 160, 240, 235, 245, 250, 300, 295, 305, 310, 360, 355, 365, 370, 450, 445, 455, 460, 480, 475, 485, 490, 630, 625, 635, 640, 750, 745, 755, 760, 840, 835, 845, 850 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS The values of q are 2,3,4,5,8,10,12,15,16,21,25,28,32,36,45... . A possible theorem: (5) in A064413. LINKS MATHEMATICA f[s_List] := Module[{m = Last[s], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]]; t = A064413 = Nest[f, {1, 2}, 850]; k = 1; Reap[ While[k <= Length[t] - 4, If[Mod[a = t[[k]], 30] == 0 && t[[k+1]] == a-5 && t[[k+2]] == a+5 && t[[k+3]] == a+10, Sow[{a, a-5, a+5, a+10}]; k = k+4, k = k+1]]][[2, 1]] // Flatten (* Jean-François Alcover, Nov 25 2013, after Robert G. Wilson v *) CROSSREFS Sequence in context: A033380 A094086 A206480 * A112025 A060512 A060513 Adjacent sequences:  A230739 A230740 A230741 * A230743 A230744 A230745 KEYWORD nonn,less AUTHOR Paul Curtz, Oct 29 2013 STATUS approved

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.

Last modified May 17 03:43 EDT 2022. Contains 353727 sequences. (Running on oeis4.)