A269023 Complement of A269020: numbers not of the form ceiling(n^(1+1/n)).

2, 4, 8, 19, 51, 141, 392, 1079, 2957, 8072, 21987, 59825, 162695, 442342, 1202521, 3268920, 8885999, 24154826, 65659826, 178482140

Offset

1,1

Comments

The limiting ratio is e (see comment in A059921).

Links

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

Example

The term 8 appears because A269020(5)=7 and A269020(6)=9.

Mathematica

Complement[Range[1, 100000], Table[Ceiling[n^(1 + 1/n)], {n, 100000}]] (* Vaclav Kotesovec, Mar 12 2016 *)

Prog

(PARI) a269020(n) = ceil(n^(1+1/n))
for(n=1, 1e20, if(a269020(n+1)-a269020(n) > 1, print1(a269020(n)+1, ", "))) \\ Felix Fröhlich, Mar 12 2016

Crossrefs

Cf. A059921, A269020.

Sequence in context: A003081 A100133 A099598 * A173310 A320178 A128816

Adjacent sequences: A269020 A269021 A269022 * A269024 A269025 A269026

Keyword

nonn,more

Author

Bob Selcoe, Feb 18 2016

Extensions

a(18)-a(20) from Felix Fröhlich, Mar 12 2016

Status

approved