OFFSET
1,1
COMMENTS
For the definition of A(k), see Cosgrave, Dilcher, 2013, (3.2).
The values of a(1)-a(26) are given in Cosgrave, Dilcher, 2013, table 1.
LINKS
John B. Cosgrave and Karl Dilcher, On a congruence of Emma Lehmer related to Euler numbers, Acta Arithmetica 161 (2013), 47-67; see also.
PROG
(PARI) is(k) = my(f=factor(k), p, q, r=#f~, s, t); if(r>2 && f[1, 1]==3 && f[1, 2]==1 && sum(i=2, r, f[i, 1]%4==1), for(i=2, r, p=f[i, 1]; s=Mod(9, p^(f[i, 2]+2)); t=Mod(10*p^2, p^(f[i, 2]+2)); for(j=2, r, q=f[j, 1]; s*=q^(2*f[j, 2])*(q=q^2-(-1)^(q\2)); if(i!=j, t*=q)); if(s+t, return(0))); 1, 0); \\ Jinyuan Wang, Sep 08 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, May 16 2019
EXTENSIONS
a(27)-a(30) from Jinyuan Wang, Sep 08 2025
STATUS
approved
