login
A044007
Numbers k such that 1 and 4 occur juxtaposed in the base-10 representation of k but not of k+1.
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
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
KEYWORD
nonn,base
STATUS
approved