|
Search: id:A133246
|
|
|
| A133246 |
|
Odd numbers n with property that no odd Fibonacci number is divisible by n. |
|
+0
3
|
|
| 9, 17, 19, 23, 27, 31, 45, 51, 53, 57, 61, 63, 69, 79, 81, 83, 85, 93, 95, 99, 107, 109, 115, 117, 119, 133, 135, 137, 153, 155, 159, 161, 167, 171, 173, 181, 183, 187, 189, 197, 207, 209, 211, 217, 221, 225, 227, 229, 237, 241, 243, 247, 249, 253, 255, 257, 261
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
The Mathematica coding uses the fact that the Pisano period - the period with which a Fibonacci sequence (mod n) repeats itself is not more than 6n and the fact that the Fibonacci sequence starts with 0.
|
|
MATHEMATICA
|
Transpose[ Select[Table[{k, Select[Table[{n, Mod[Fibonacci[n], k]}, {n, 6k + 1}], Mod[ #[[1]], 3] != 0 && #[[2]] == 0 &]}, {k, 1, 351, 2}], #[[2]] == {} &]][[1]]
|
|
CROSSREFS
|
Cf. A133247.
Sequence in context: A004751 A134104 A124966 this_sequence A144752 A073160 A143850
Adjacent sequences: A133243 A133244 A133245 this_sequence A133247 A133248 A133249
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Tanya Khovanova (tanyakh(AT)yahoo.com), Oct 14 2007, Oct 17 2007
|
|
|
Search completed in 0.002 seconds
|
