A156898 a(n) = the smallest squarefree integer >= the n-th prime power.

1, 2, 3, 5, 5, 7, 10, 10, 11, 13, 17, 17, 19, 23, 26, 29, 29, 31, 33, 37, 41, 43, 47, 51, 53, 59, 61, 65, 67, 71, 73, 79, 82, 83, 89, 97, 101, 103, 107, 109, 113, 122, 127, 127, 129, 131, 137, 139, 149, 151, 157, 163, 167, 170, 173, 179, 181, 191, 193, 197, 199, 211

Offset

1,2

Comments

The first prime power is considered to be 1 here.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

Block[{nn = 216, s}, s = {1}~Join~Select[Range[nn], PrimePowerQ]; Map[SelectFirst[# + Range[0, #], SquareFreeQ] &, s]] (* Michael De Vlieger, Oct 30 2017 *)

Crossrefs

Cf. A081217, A156899, A156900, A005117, A000961.

Sequence in context: A347737 A332286 A357250 * A084754 A120724 A117530

Adjacent sequences: A156895 A156896 A156897 * A156899 A156900 A156901

Keyword

nonn

Author

Leroy Quet, Feb 17 2009, Feb 18 2009

Extensions

Extended by Ray Chandler, Jun 19 2009

Status

approved