OFFSET
1,1
COMMENTS
Also called generalized unique primes in base 8.
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..27
C. K. Caldwell, "Top Twenty" page, Generalized Unique
Wikipedia, Octal
MATHEMATICA
lst = {}; Do[c = Cyclotomic[n, 8]; q = c/GCD[n, c]; If[PrimePowerQ[q], p = FactorInteger[q][[1, 1]]; AppendTo[lst, p]], {n, 138}]; Sort[lst]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Arkadiusz Wesolowski, Oct 08 2012
STATUS
approved