A124378 Primitive elements of A064362.

5, 8, 12, 13, 17, 21, 28, 33, 37, 53, 57, 61, 69, 73, 77, 87, 89, 92, 93, 97, 109, 113, 133, 137, 141, 149, 157, 164, 172, 173, 177, 188, 193, 197, 203, 213, 217, 233, 237, 253, 257, 268, 269, 277, 287, 293, 301, 303, 309, 313, 317, 329, 332, 337, 353, 373, 381

Offset: 1

Author

Franklin T. Adams-Watters, Oct 28 2006

Keywords

• nonn

Comments

Numbers n such that no Lucas number is a multiple of n, which are not divisible by any smaller number with that property.

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A064362, A065156.

Programs

Mathematica

test[n_] := Module[{a, b, t}, {a, b} = {2, 1}; While[t = b; b = Mod[a + b, n]; a = t; ! (b == 0 || {a, b} == {2, 1})]; b == 0]; t = {}; n = 0; While[Length[t] < 1000, n++; If[! MemberQ[Mod[n, t], 0] && ! test[n], AppendTo[t, n]]]; t (* T. D. Noe, Mar 20 2013 *)