login
A110954
a(1) = 1; a(n) = nextprime(2.5*a(n-1)) for n > 1.
0
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
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
KEYWORD
nonn
AUTHOR
Ryan Propper, Sep 25 2005
STATUS
approved