|
|
A144589
|
|
Prime(n-th "prime nonprime").
|
|
1
|
|
|
2, 7, 19, 29, 53, 71, 97, 103, 137, 173, 193, 233, 263, 271, 311, 359, 409, 421, 463, 491, 503, 571, 607, 647, 701, 743, 757, 809, 821, 839, 971, 1009, 1049, 1061, 1151, 1181, 1231, 1283, 1303, 1367, 1429, 1451, 1543, 1553, 1579, 1601, 1699, 1831, 1873, 1879
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
A141468 := proc(n) 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:
|
|
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, prime(t(prime(n)))) \\ Altug Alkan, Oct 17 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|