OFFSET
1,2
MAPLE
select(t -> 22 &^ t - 1 mod t^2 = 0, [seq(2*k+1, k=0..10^6)]); # Robert Israel, Jan 23 2015
MATHEMATICA
a={}; Do[r=(22^n-1)/n^2; If[r==IntegerPart[r], AppendTo[a, n]], {n, 1, 10^3}]; a (* Vladimir Joseph Stephan Orlovsky, Aug 07 2008 *)
PROG
(PARI) { forstep(m=11, 10^8, 2, if( Mod(22, m^2)^m==1, print(m) ) ) } \\ Max Alekseyev, Oct 18 2008
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Alexander Adamchuk, Mar 01 2007
EXTENSIONS
a(14)-a(30) from Max Alekseyev, Oct 18 2008
STATUS
approved