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

Author

Leroy Quet, Feb 17 2009, Feb 18 2009

Keywords

• nonn

Comments

The first prime power is considered to be 1 here.

Links

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

Crossrefs

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

Programs

Mathematica

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

Extensions

Extended by Ray Chandler, Jun 19 2009