0,1
Composite[n_Integer] := Block[ {k = n + PrimePi[n] + 1 }, While[ k != n + PrimePi[k] + 1, k = n + PrimePi[k] + 1]; Return[ k ]]; Table[ Composite[11^n], {n, 0, 13} ]
Sequence in context: A115852 A058381 A094651 * A032333 A068965 A185672
Adjacent sequences: A065523 A065524 A065525 * A065527 A065528 A065529
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 27 2001