A181062 Prime powers minus 1.
0, 1, 2, 3, 4, 6, 7, 8, 10, 12, 15, 16, 18, 22, 24, 26, 28, 30, 31, 36, 40, 42, 46, 48, 52, 58, 60, 63, 66, 70, 72, 78, 80, 82, 88, 96, 100, 102, 106, 108, 112, 120, 124, 126, 127, 130, 136, 138, 148, 150, 156, 162, 166, 168, 172, 178, 180, 190, 192, 196, 198, 210, 222, 226
Offset: 1
Examples
Any integer that is divisible by 5 consecutive integers will be divisible by at least 6 consecutive integers. Hence 5 is not in the sequence.
Links
- Matthew House, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Join[{0}, Select[Range@225, PrimePowerQ] - 1] (* Ivan Neretin, Aug 04 2016 *)
-
PARI
isA181062(n)=ispower(n++,,&n);isprime(n) \\ Charles R Greathouse IV, Jun 29 2011
-
PARI
isok(n) = (n==0) || isprimepower(n++); \\ Michel Marcus, Aug 05 2016
Formula
a(n) = A000961(n)-1.
Extensions
Entry revised by N. J. A. Sloane, Jan 06 2013
Comments