|
| |
|
|
A049078
|
|
Primes for which A049076(p) = 2.
|
|
19
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| a(n)=prime(A007821(n)). - 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, A018252, A007821.
Sequence in context: A179783 A196781 A107147 * A146821 A135471 A092347
Adjacent sequences: A049075 A049076 A049077 * A049079 A049080 A049081
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. Fernandez (primeness(AT)borve.org)
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Aug 29 2008 at the suggestion of R. J. Mathar
Spelling/notation corrections by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Mar 18 2010
|
| |
|
|
