OFFSET
1,1
COMMENTS
Composites begin: 121, 108781, 155365, 267547, 2774521, 3166087, 3225601, 4907701, 8341201, 10712857, 11035921, 13216141, 17559829, 21708961, 29641921, 31116241, 31150351, ... are all composite terms congruent to 1 (mod 3)?
MATHEMATICA
Join[{3}, Select[Range[4, 20000], PowerMod[3, (#-1)^2+2, (#-1)^2-1]==9&]] (* Harvey P. Dale, Dec 07 2019 *)
PROG
(PARI) for(n=2, 1000, m=n^2-1; if(Mod(3, m)^(m+3)==9, print(n+1)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Alzhekeyev Ascar M, May 30 2012
EXTENSIONS
More terms from Harvey P. Dale, Dec 07 2019
STATUS
approved