[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Revision History for A135641 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Convex numbers.
(history; published version)
#17 by Peter Luschny at Wed Aug 03 02:36:11 EDT 2022
STATUS

reviewed

approved

#16 by Michel Marcus at Wed Aug 03 02:18:12 EDT 2022
STATUS

proposed

reviewed

#15 by Jon E. Schoenfield at Wed Aug 03 02:10:37 EDT 2022
STATUS

editing

proposed

#14 by Jon E. Schoenfield at Wed Aug 03 02:10:33 EDT 2022
COMMENTS

The structure of digits represents a convex function or a convex object. In the graphic representation the points are connected by imaginary line segments (or line curves) from left to right.

STATUS

reviewed

editing

#13 by Michel Marcus at Wed Aug 03 01:55:56 EDT 2022
STATUS

proposed

reviewed

#12 by Jon E. Schoenfield at Wed Aug 03 01:18:21 EDT 2022
STATUS

editing

proposed

Discussion
Wed Aug 03
01:18
Jon E. Schoenfield: What’s a “line curve”?
#11 by Jon E. Schoenfield at Wed Aug 03 01:18:17 EDT 2022
COMMENTS

The structure of digits represent represents a convex function or a convex object. In the graphic representation the points are connected by imaginary line segments (or line curves) from left to right.

EXAMPLE

. . . . . .

. . . . . .

. . . . . .

. . . . . .

7 . . . . .

. . . . . .

. . . . . .

. . . . . 5

. 4 . . . .

. . . . 3 .

. . 2 2 . .

. . . . . .

. . . . . .

. . . . . .

. . . . . .

STATUS

approved

editing

#10 by Susanna Cuyler at Thu Nov 01 11:39:42 EDT 2018
STATUS

proposed

approved

#9 by Jean-François Alcover at Thu Nov 01 10:09:02 EDT 2018
STATUS

editing

proposed

#8 by Jean-François Alcover at Thu Nov 01 10:08:59 EDT 2018
MATHEMATICA

convexQ[n_] := With[{dd = IntegerDigits[n]}, AllTrue[SequencePosition[dd, {_, _, _}][[All, 1]], dd[[#]] + dd[[#+2]] > 2 dd[[#+1]]&]];

Select[Range[100, 300], convexQ] (* Jean-François Alcover, Nov 01 2018 *)

STATUS

approved

editing