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,1

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

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 *)

Crossrefs

Cf. A064362, A065156.

Sequence in context: A003656 A003246 A143748 * A066299 A278040 A161394

Adjacent sequences: A124375 A124376 A124377 * A124379 A124380 A124381

Keyword

nonn

Author

Franklin T. Adams-Watters, Oct 28 2006

Status

approved