A110954 a(1) = 1; a(n) = nextprime(2.5*a(n-1)) for n > 1.

1, 3, 11, 29, 73, 191, 479, 1201, 3011, 7529, 18839, 47111, 117779, 294461, 736159, 1840429, 4601099, 11502779, 28756957, 71892397, 179730997, 449327503, 1123318769, 2808296923, 7020742321, 17551855831, 43879639613, 109699099033

Offset

1,2

Links

Table of n, a(n) for n=1..28.

Example

a(6) = nextprime(2.5*a(5)) = nextprime(2.5*73) = nextprime(182.5) = 191.

Mathematica

<<NumberTheory`; p = 1; Print[p]; Do[p = NextPrime[p*2.5]; Print[p], {n, 2, 30}]

Crossrefs

Sequence in context: A242807 A188475 A072610 * A000251 A159229 A239713

Adjacent sequences: A110951 A110952 A110953 * A110955 A110956 A110957

Keyword

nonn

Author

Ryan Propper, Sep 25 2005

Status

approved