检验过的
经核准的
提出
编辑
a[n_]:=模块[{k=n,m=2,c=0,r},而[{k,r}=QuotientMainder[k,m];k!=0||r!=0,如果[r==1,c++];m++];如果[c>0,1,0]];数组[a,100,0](*阿米拉姆·埃尔达尔2024年1月23日*)
定义a007623(n,p=2):如果n<p,则返回n(整数(n个//第页), , p+1)*10+n%p
打印 ([范围(101)中n的a(n)] ) #印地瑞尼Ghosh2017年6月21日
F.查波顿:将py代码调整为py3
打印[a(n)for n in润智范围(101)] #印地瑞尼Ghosh2017年6月21日
OEIS服务器: https://oeis.org/edit/global/2837