%I#9 2019年5月14日22:02:24

%S 1,2,3,4,5,6,7,8,9,10,11,13,14,19,23,33,37,39,40,41,44,46,47,49,55,59，

%电话：69,74,82,89,90,91,94,95,98,99100101104106110111114119，

%U 131140141142143144145146149151155158167171174184188190191193194197199217

%N数字k，使得每个十进制数字都是模k的二次剩余。

%e 673位于序列中，因为L（6/673）=L（7/673）=L（3/673）=1，其中L（a/b）是a和b的勒让德符号，如果a是二次型，则定义为1

%e剩余（modb）和-1，如果a是二次非剩余（mod b）。

%p是A177054:=进程（n）局部d；对于convert（n，base，10）中的d，如果numtheory[象限]（d，n）<>1，则返回false；结束条件：；结束do；返回true；结束过程：

%p表示n从1到140，如果是A177054（n），则打印f（“%d，”，n）；结束条件：；结束日期：#R.J.Mathar，2010年12月12日

%K nonn，基数，减去

%O 1,2号机组

%2010年12月9日，拉格瑙市