A272766 Numbers n such that A281363(n) = n-1.
2, 3, 4, 6, 7, 10, 15, 19, 22, 30, 31, 34, 36, 51, 52, 54, 70, 75, 90, 91, 96, 99, 100, 106, 114, 115, 120, 135, 136, 156, 174, 190, 199, 210, 231, 244, 271, 286, 300, 316, 330, 346, 351, 370, 376, 394, 411, 414, 415, 430, 439, 496, 510, 516, 520, 531, 546, 559, 576, 615
Offset: 1
Programs
-
Mathematica
Table[SelectFirst[Range[10^5], PowerMod[2^#, 2 n, 4 n^2 - 1] == 1 &] /. k_ /; k != n - 1 -> Nothing, {n, 620}] + 1 (* Version 10.2, or *) Rest@ Union@ Table[If[# == n - 1, #, 0] &@ Block[{m = 1}, While[PowerMod[2^m, 2 n, 4 n^2 - 1] != 1, m++]; m], {n, 620}] + 1 (* Michael De Vlieger, May 06 2016, after Giovanni Resta at A281363 *)
Comments