OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
The positive even-indexed Fibonacci numbers are 1, 3, 8, 21, ..., so the sequence includes 2^1 = 2, 2^3 = 8, 2^8 = 256, ..., 3^1 = 3, 3^3 = 27, 3^8 = 6561, ... .
MATHEMATICA
fib[lim_] := Module[{s = {}, f = 1, k = 2}, While[f <= lim, AppendTo[s, f]; k += 2; f = Fibonacci[k]]; s];
seq[max_] := Module[{s = {1}, p = 2, e = 1, f = {}}, While[e > 0, e = Floor[Log[p, max]]; If[f == {}, f = fib[e], f = Select[f, # <= e &]]; s = Join[s, p^f]; p = NextPrime[p]]; Sort[s]]; seq[256]
PROG
(PARI) fib(lim) = {my(s = List(), f = 1, k = 2); while(f <= lim, listput(s, f); k += 2; f = fibonacci(k)); Vec(s); }
lista(pmax) = {my(s = [1], p = 2, e = 1, f = []); while(e > 0, e = logint(pmax, p); if(#f == 0, f = fib(e), f = select(x -> x <= e, f)); s = concat(s, apply(x -> p^x, f)); p = nextprime(p+1)); vecsort(s); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Aug 09 2024
STATUS
approved