1,1
迈克尔·德弗利格，n=1..10000时的n，a（n）表
SequencePosition[Table[If[SequenceCount[IntegerDigits[n]，{1，4}]>0||SequenceCoont[IntigerDigits[n]、{4，1}]>0，1，0]、{n，2100}]、{1，0}][[All，1]]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2019年7月1日*）
上下文中的序列：A056034号 A039404号 A043227号*A199710号 A214521型 A064512号
相邻序列：A044004号 A044005型 A044006型*A044008型 A044009型 A044010型
非n,基础
克拉克·金伯利
经核准的
