%I#13 2022年9月8日08:46:15
%序号0,1,4,5,12,16,27,87252105216913237366916140170722793270811
%N个数N,使得7^N+6^(N+1)是素数。
%Ca(18)>10^5。
%t选择[Range[0100000],PrimeQ[7^#+6^(#+1)]&]
%o(岩浆)[0..500]|IsPrime(7^n+6^(n+1))中的n:n;//_Winenzo Librandi_,2016年7月12日
%o(PARI)is(n)=ispseudoprime(7^n+6^(n+1))\\查尔斯·格里特豪斯IV_,2017年6月13日
%Y参考A093765。
%K nonn,更多
%氧1,3
%2016年7月11日A _罗巴特价格