Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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