login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A159556 Numbers n that are the sum of distinct Fibonacci primes. 1
2, 3, 5, 7, 8, 10, 13, 15, 16, 18, 20, 21, 23, 89, 91, 92, 94, 96, 97, 99, 102, 104, 105, 107, 109, 110, 112, 233, 235, 236, 238, 240, 241, 243, 246, 248, 249, 251, 253, 254, 256, 322, 324, 325, 327, 329, 330, 332, 335, 337, 338, 340, 342, 343, 345, 1597, 1599, 1600 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

EXAMPLE

For example: 7 = 5 + 2; 2 and 5 are Fibonacci numbers which are prime.

MAPLE

fibprimes:= select(isprime, [2, 3, seq(combinat:-fibonacci(ithprime(i)), i=3..100)]):

S:= expand(mul(1+x^p, p = fibprimes[1..11])):

sort(convert(map2(op, 2, indets(S, `^`)), list)): # Robert Israel, Jul 16 2015

MATHEMATICA

Union[Plus@@@Subsets[{2, 3, 5, 13, 89, 233, 1597}]] (* T. D. Noe, Apr 16 2009 *)

fibPrime={2, 3, 5, 13, 89, 233, 1597}; t=Rest[CoefficientList[Series[Product[1+x^fibPrime[[k]], {k, Length[fibPrime]}], {x, 0, fibPrime[[ -1]]}], x]]; Flatten[Position[t, _?(#>0&)]] (* T. D. Noe, Apr 15 2009 *)

PROG

(C) #include <stdio.h>

#define MAX_FIB 6

#define MAX_CALC 2580

int main() {

    int fibs[] = {2, 3, 5, 13, 89, 233, 1597};

    int num = 0;

    int x = 0;

    int index = 0;

    for(x=1; x<MAX_CALC; x++) {

        num = x;

        for(index=MAX_FIB; index>-1; index--)

            if(fibs[index]<=num)  num-=fibs[index];

        if(num==0)  printf("%d, ", x);

    }

    printf("\n");

    return 0;

}

CROSSREFS

Expressed as a sum of unique numbers in A005478.

Sequence in context: A186221 A083027 A060107 * A219643 A194798 A302245

Adjacent sequences:  A159553 A159554 A159555 * A159557 A159558 A159559

KEYWORD

nonn

AUTHOR

Jose Manuel Hernandez Jr. (j.hernandez38(AT)umiami.edu), Apr 14 2009

EXTENSIONS

Name corrected by T. D. Noe, Apr 15 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 17 17:27 EST 2019. Contains 320222 sequences. (Running on oeis4.)