A214711 Positions of 2 in A214710.

1, 5, 45, 57, 77, 81, 101, 105, 125, 137, 189, 197, 209, 249, 261, 281, 305, 329, 365, 377, 381, 429, 465, 477, 497, 501, 545, 585, 597, 605, 629, 641, 657, 725, 741, 809, 821, 825, 837, 857, 861, 881, 885, 905, 969, 989, 1049, 1085, 1149, 1161

Offset

1,2

Links

Clark Kimberling, Table of n, a(n) for n = 1..300

Mathematica

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

Crossrefs

Cf. A214710.

Sequence in context: A096763 A345398 A341383 * A216767 A288320 A003185

Adjacent sequences: A214708 A214709 A214710 * A214712 A214713 A214714

Keyword

nonn,easy

Author

Clark Kimberling, Jul 27 2012

Status

approved