%I#27 2019年10月1日04:00:07

%S 491681184902376239325571211821824539626569148436371431125，

%电话：1608574160967419404492328482294840632030037215495606230，

%电话：63528258984002100001651350225419326874197402492100658926622375035587703806792546297822

%N个数N，满足A055231（N+1）-A055231（N）=1，且N和N+1不平方。

%C存在无穷多个可被平方整除的数，并且满足A055231（n+1）-A055231（n）=1，因为费马-贝尔方程2x^2-y^2=1允许无穷多个解。

%D J.-M.De Konink，《法定法西斯主义》，条目49，第18页，《椭圆》，巴黎，2008年。

%e 49在序列中，因为A055231（50）-A055231（49）=A05523一（2*5^2）-A055331（7^2）=2-1=1；

%e 18490位于序列中，因为A055231（18491）-A055231（18490）=A05523一（11*41^2）-A055331（2*5*43^2）=11-10=1。

%p为A013929:=进程（n）

%pn>3且非数值理论[issqrfree]（n）；

%p端程序：

%p为A140394：=进程（n）

%p isA013929（n）和isA013929（n+1）以及（A055231（n+1）-A055231（n）=1）；

%p端程序：

%从1 do到n的p

%p如果是A140394（n），则

%p打印（n）；

%p结束if；

%p end do:#R.J.Mathar_，2011年12月23日

%t rad[n_]：=倍@@First/@FactorInteger[n]；pow[n_]：=分母[n/rad[n]^2]；aQ[n_]：=！方形自由Q[n]&&！平方自由Q[n+1]&&pow[n+1]-pow[n]==1；选择[范围[10^6]，aQ]（*_Amiram Eldar_，2019年10月1日*）

%Y参见A007913、A013929、A055231、A068781。

%K nonn公司

%O 1,1号机组

%2011年12月19日，拉格瑙市

%E a（24）-a（30），来自_Amiram Eldar_，2019年10月1日