A044753 - OEIS

A044753

Numbers n such that string 4,0 occurs in the base 10 representation of n but not of n+1.

40, 140, 240, 340, 409, 440, 540, 640, 740, 840, 940, 1040, 1140, 1240, 1340, 1409, 1440, 1540, 1640, 1740, 1840, 1940, 2040, 2140, 2240, 2340, 2409, 2440, 2540, 2640, 2740, 2840, 2940, 3040, 3140, 3240, 3340, 3409, 3440

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..39.

MATHEMATICA

Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {4, 0}]>0, 1, 0], {n, 4000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Jun 19 2015 *)

CROSSREFS

Sequence in context: A251130 A231077 A044372 * A160148 A233733 A233726

Adjacent sequences: A044750 A044751 A044752 * A044754 A044755 A044756

KEYWORD

nonn,base

AUTHOR

Clark Kimberling

STATUS

approved