A214711 - OEIS

%I #4 Jul 29 2012 02:32:56

%S 1,5,45,57,77,81,101,105,125,137,189,197,209,249,261,281,305,329,365,

%T 377,381,429,465,477,497,501,545,585,597,605,629,641,657,725,741,809,

%U 821,825,837,857,861,881,885,905,969,989,1049,1085,1149,1161

%N Positions of 2 in A214710.

%H Clark Kimberling, <a href="/A214711/b214711.txt">Table of n, a(n) for n = 1..300</a>

%t t=Table[m = 1; While[GCD[n! - m, n!! - m] != 1, m++]; m, {n, 1, 2000}]

%t Flatten[Position[t,2]]

%Y Cf. A214710.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Jul 27 2012