1,2

Table of n, a(n) for n=1..67.

a(n) = A096497(n) - A002275(n) = A096499(n) - A096870(n).

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; Table[ NextPrim[(10^n - 1)/9] - (10^n - 1)/\ 9, {n, 70}]

Cf. A096870.

Sequence in context: A193388 A291840 A208448 * A154009 A297792 A266722

Adjacent sequences: A096866 A096867 A096868 * A096870 A096871 A096872

nonn

Robert G. Wilson v, Jul 12 2004

approved