login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A278102 a(n) is the largest j such that A278101(n,k) strictly decreases for k=1..j. 5
1, 2, 3, 2, 3, 4, 2, 4, 2, 3, 2, 3, 4, 2, 4, 2, 3, 2, 3, 4, 2, 5, 6, 5, 2, 2, 3, 2, 4, 4, 4, 2, 2, 3, 2, 3, 4, 4, 5, 2, 2, 2, 3, 5, 3, 5, 2, 2, 2, 3, 5, 2, 4, 4, 4, 2, 3, 4, 2, 4, 5, 4, 2, 3, 2, 2, 4, 5, 4, 3, 3, 2, 2, 3, 5, 4, 5, 2, 2, 2, 3, 2, 3, 4, 2, 2, 2, 3, 2, 3, 4, 6, 5, 2, 3, 2, 2, 4, 6, 6, 2, 3, 2 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Jason Kimberley, Table of n, a(n) for n = 1..10000

MATHEMATICA

Map[Length@ TakeWhile[FoldList[Function[s, Boole[s < 0] #2][#2 - #1] &, #], # > 0 &] &, #] &@ Map[DeleteCases[#, 0] &, Table[Boole[SquareFreeQ@ k] k Floor[n/Sqrt@ k]^2, {n, 23}, {k, n^2}] ] // Flatten (* Michael De Vlieger, Nov 24 2016 *)

PROG

(Magma)

A277647:=func<n, k|Isqrt(n^2 div k)>;

A278101_row:=func<n|[a^2*k where a is A277647(n, k):k in[1..n^2]|IsSquarefree(k)]>;

A278102:=func<n|(exists(j){j:j in[1..#row-1]|row[j]le row[j+1]}select j else #row) where row is A278101_row(n) >;

[A278102(n):n in[1..103]];

CROSSREFS

This is the row length sequence for triangles A278103 and A278104.

A278106 lists first occurrences in this sequence.

Sequence in context: A076050 A130799 A243519 * A106383 A175794 A105500

Adjacent sequences:  A278099 A278100 A278101 * A278103 A278104 A278105

KEYWORD

nonn,easy

AUTHOR

Jason Kimberley, Nov 15 2016

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 21 15:58 EST 2018. Contains 299414 sequences. (Running on oeis4.)