login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Convex numbers.
10

%I #17 Aug 03 2022 02:36:11

%S 100,101,102,103,104,105,106,107,108,109,112,113,114,115,116,117,118,

%T 119,124,125,126,127,128,129,136,137,138,139,148,149,200,201,202,203,

%U 204,205,206,207,208,209,211,212,213,214,215,216,217

%N Convex numbers.

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

%H Rémy Sigrist, <a href="/A135641/b135641.txt">Table of n, a(n) for n = 1..10000</a>

%e The number 742235 is a convex number.

%e . . . . . .

%e . . . . . .

%e 7 . . . . .

%e . . . . . .

%e . . . . . 5

%e . 4 . . . .

%e . . . . 3 .

%e . . 2 2 . .

%e . . . . . .

%e . . . . . .

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

%t Select[Range[100, 300], convexQ] (* _Jean-François Alcover_, Nov 01 2018 *)

%o (PARI) is(n) = my (d=digits(n), cvx=0, ccv=0, str=0); for (i=1, #d-2, my (x=d[i]+d[i+2]-2*d[i+1]); if (x>0, cvx++, x<0, ccv++, str++)); return (cvx>0 && ccv==0) \\ _Rémy Sigrist_, Aug 09 2017

%Y Cf. A135642 (concave numbers), A135643 (straight line numbers), A163278 (concave-convex numbers).

%K nonn,base

%O 1,1

%A _Omar E. Pol_, Nov 30 2007