OFFSET
1,2
COMMENTS
The nonprimes A141468 at prime indices. - Juri-Stepan Gerasimov, Jul 22 2011
EXAMPLE
a(1) = nonprime(prime(1)) = nonprime(2) = 1,
a(2) = nonprime(prime(2)) = nonprime(3) = 4,
a(3) = nonprime(prime(3)) = nonprime(5) = 8, etc.
MAPLE
A141468 := proc(n) option remember ; if n <= 2 then n-1 ; else for a from procname(n-1)+1 do if not isprime(a) then return a; end if; end do: end if; end proc: A144570 := proc(n) A141468(ithprime(n)) ; end proc: seq(A144570(n), n=1..100) ; # R. J. Mathar, Mar 18 2010
PROG
(PARI) c(n) = {for(k=0, primepi(n), isprime(n++)&&k--); n};
t(n) = if(n<3, n-1, c(n-2));
vector(100, n, t(prime(n))) \\ Altug Alkan, Oct 17 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 07 2009
STATUS
approved