|
| |
|
|
A206096
|
|
Fibonacci numbers with 4 distinct prime divisors, each of multiplicity 1.
|
|
1
|
|
|
|
6765, 196418, 317811, 2178309, 32951280099, 139583862445, 1304969544928657, 5527939700884757, 259695496911122585, 679891637638612258, 12200160415121876738, 83621143489848422977, 483162952612010163284885, 22698374052006863956975682
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Intersection of A000045 and A046386. - Michel Marcus, Sep 11 2014
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..36
|
|
|
MAPLE
|
filter:= proc(t)
local F;
F:= ifactors(t)[2];
map(f -> f[2], F) = [1, 1, 1, 1];
end proc:
select(filter, [seq(combinat:-fibonacci(n), n=1..200)]); # Robert Israel, Sep 07 2014
|
|
|
MATHEMATICA
|
Select[Fibonacci[Range[200]], Last/@FactorInteger[#]=={1, 1, 1, 1}&]
|
|
|
PROG
|
(PARI)
Vec(select(k -> omega(k)==4 && bigomega(k)==4, vector(100, i, fibonacci(i)))) \\ Edward Jiang, Sep 11 2014
|
|
|
CROSSREFS
|
Cf. A000045, A053409, A137563
Sequence in context: A151637 A031986 A147316 * A238911 A031832 A200436
Adjacent sequences: A206093 A206094 A206095 * A206097 A206098 A206099
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Feb 03 2012
|
|
|
STATUS
|
approved
|
| |
|
|
