|
Search: id:A049078
|
|
| |
|
| 3, 17, 41, 67, 83, 109, 157, 191, 211, 241, 283, 353, 367, 401, 461, 509, 547, 563, 587, 617, 739, 773, 797, 859, 877, 967, 991, 1031, 1087, 1171, 1201, 1217, 1409, 1433, 1447, 1471, 1499, 1597, 1621, 1669, 1723, 1741, 1823, 1913, 2027, 2063, 2081, 2099
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
a(n)=p(A007821(n)), where p(n)=n-th prime. - Juri-Stepan Gerasimov (2stepan(AT)rambler.ru), Aug 11 2008
|
|
LINKS
|
N. Fernandez, An order of primeness, F(p)
|
|
EXAMPLE
|
For these primes S(p) is a prime but S(S(p)) is not. E.g. S(17)=7, S(7)=4.
|
|
MAPLE
|
A018252 := proc(n) option remember ; local a; if n = 1 then 1; else for a from procname(n-1)+1 do if not isprime(a) then RETURN(a) ; fi; od: fi; end: A007821 := proc(n) ithprime(A018252(n)) ; end: A049078 := proc(n) ithprime(A007821(n)) ; end: for n from 1 to 100 do printf("%d, ", A049078(n) ) ; od: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 14 2008]
|
|
MATHEMATICA
|
Nest[ Prime, Select[ Range[70], !PrimeQ[ # ] &], 2] (from Robert G. Wilson v Mar 15 2004)
|
|
CROSSREFS
|
Cf. A049076, A007821, A049079, A049080, A049081, A058322, A058324, A058325, A058326, A058327, A058328, A093046, A006450.
Cf. A018252, A007821.
Adjacent sequences: A049075 A049076 A049077 this_sequence A049079 A049080 A049081
Sequence in context: A097938 A073162 A107147 this_sequence A135471 A092347 A126587
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
N. Fernandez (primeness(AT)borve.org)
|
|
EXTENSIONS
|
Edited by njas, Aug 29 2008 at the suggestion of R. J. Mathar
|
|
|
Search completed in 0.002 seconds
|
