login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A087684 Consecutive repeating elements in sequence A006158. 0

%I

%S 1,4,6,8,10,13,16,18,21,25,29,32,34,37,41,46,48,51,54,56,57,58,59,60,

%T 61,64,66,69,73,78,80,84,87,91,92,97,100,101,104,105,108,109,112,115,

%U 117,118,119,120,121,122,123,124,125,128,130,133,137,142,144,148,151,156

%N Consecutive repeating elements in sequence A006158.

%F Mallows3[n] =Mallows3[Mallows3[n-3]] + Mallows3[n - Mallows3[n-3]]

%t Mallows3[n_Integer?Positive] := Mallows3[n] =Mallows3[Mallows3[n-3]] + Mallows3[n - Mallows3[n-3]] Mallows3[0]=Mallows3[1] = Mallows3[2] = Mallows3[3] = 1 Digits=1000 a=Table[Mallows3[n], {n, 1, Digits}]; b=Table[If[a[[n]]-a[[n-1]]==0, a[[n]], 0], {n, 2, Digits}]; c=Delete[Union[b], 1]

%Y Cf. A006158.

%K nonn

%O 1,2

%A _Roger L. Bagula_, Sep 27 2003

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 12 10:29 EDT 2021. Contains 344946 sequences. (Running on oeis4.)