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[12^n], {n, 0, 12} ]
Sequence in context: A163948 A158108 A158258 * A041667 A132684 A032074
Adjacent sequences: A065524 A065525 A065526 * A065528 A065529 A065530
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 27 2001