OFFSET
1,1
COMMENTS
REFERENCES
C. Kimberling, Fractal sequences and interspersions, Ars Combinatoria, vol. 45 p 157 1997.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
C. Kimberling, Interspersions
FORMULA
EXAMPLE
a(5) = 14 because a(5) = composite(noncomposite(5)) = composite(7) =14. Jaroslav Krizek, Mar 13 2010
MAPLE
MATHEMATICA
p[1] = 1; p[n_] := Prime[n - 1];
Composite[n_] := FixedPoint[n + PrimePi[#] + 1 & , n + PrimePi[n] + 1];
a[n_] := Composite[p[n]];
Array[a, 100] (* Jean-François Alcover, Jan 26 2018, after Robert G. Wilson v *)
PROG
(Haskell)
a022449 = a002808 . a008578
a022449_list = map a002808 a008578_list
-- Reinhard Zumkeller, Jan 12 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition corrected by Christopher M. Tomaszewski (cmt1288(AT)comcast.net), Mar 30 2005
STATUS
approved