A044007 Numbers k such that 1 and 4 occur juxtaposed in the base-10 representation of k but not of k+1.

14, 41, 114, 149, 214, 241, 314, 341, 419, 441, 514, 541, 614, 641, 714, 741, 814, 841, 914, 941, 1014, 1041, 1114, 1149, 1214, 1241, 1314, 1341, 1499, 1514, 1541, 1614, 1641, 1714, 1741, 1814, 1841, 1914, 1941, 2014, 2041

Offset

1,1

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {1, 4}]> 0 || SequenceCount[IntegerDigits[n], {4, 1}]>0, 1, 0], {n, 2100}], {1, 0}] [[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 01 2019 *)

Crossrefs

Sequence in context: A056034 A039404 A043227 * A366480 A199710 A214521

Adjacent sequences: A044004 A044005 A044006 * A044008 A044009 A044010

Keyword

nonn,base

Author

Clark Kimberling

Status

approved