%I #2 Oct 02 2013 15:12:49
%S 1,3,11,29,73,191,479,1201,3011,7529,18839,47111,117779,294461,736159,
%T 1840429,4601099,11502779,28756957,71892397,179730997,449327503,
%U 1123318769,2808296923,7020742321,17551855831,43879639613,109699099033
%N a(1) = 1; a(n) = nextprime(2.5*a(n-1)) for n > 1.
%e a(6) = nextprime(2.5*a(5)) = nextprime(2.5*73) = nextprime(182.5) = 191.
%t <<NumberTheory`; p = 1; Print[p]; Do[p = NextPrime[p*2.5]; Print[p], {n, 2, 30}]
%K nonn
%O 1,2
%A _Ryan Propper_, Sep 25 2005
|