1,1

迈克尔·德弗利格，n=1..10000时的n，a（n）表

SequencePosition[Table[If[SequenceCount[IntegerDigits[n]，{1，3}]>0||SequenceCoont[IntigerDigits[n]、{3，1}]>0，1，0]，{n，2100}]，{1,0}][[All，1]]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2019年8月18日*）

上下文中的序列：A039403号 A062339号 A043226号*A179034号 A179035号 A007628号

相邻序列：A044003型 A044004号 A044005型*A044007号 A044008型 A044009型

非n,基础

克拉克·金伯利

经核准的