OFFSET
1,1
FORMULA
EXAMPLE
MATHEMATICA
Composite[n_] := FixedPoint[n + PrimePi[ # ] + 1 &, n]; f[n_] := Block[{cn = Composite[n]}, k = 1; While[Plus @@ IntegerDigits@Prime@k != cn, k++ ]; Prime[k]];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Aug 15 2002
EXTENSIONS
a(19)-a(32) from Stefan Steinerberger, Nov 09 2005
a(33)-a(56) by Robert G. Wilson v, Nov 10 2005
STATUS
approved