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!)
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

Table of n, a(n) for n=0..47.

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.

License Agreements, Terms of Use, Privacy Policy. .

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