|
| |
|
|
A065156
|
|
Some Lucas number (A000204) is divisible by n.
|
|
2
| |
|
|
1, 2, 3, 4, 6, 7, 9, 11, 14, 18, 19, 22, 23, 27, 29, 31, 38, 41, 43, 44, 46, 47, 49, 54, 58, 59, 62, 67, 71, 76, 79, 81, 82, 83, 86, 94, 98, 101, 103, 107, 116, 118, 121, 123, 124, 127, 129, 131, 134, 139, 142, 151, 158, 161, 162, 163, 166, 167, 179, 181, 191, 199
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| test[ n_ ] := For[ a=1; b=3, True, t=b; b=Mod[ a+b, n ]; a=t, If[ b==0, Return[ True ] ]; If[ a==2&&b==1, Return[ False ] ] ]; Select[ Range[ 200 ], test ]
|
|
|
CROSSREFS
| Complement of A064362.
Sequence in context: A047872 A173254 A015851 * A097987 A049149 A156287
Adjacent sequences: A065153 A065154 A065155 * A065157 A065158 A065159
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Dean Hickerson (dean.hickerson(AT)yahoo.com), Oct 18, 2001
|
| |
|
|
