[go: up one dir, main page]
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A132349 If n is a k-th power with k >= 2 then a(n) = k, otherwise a(n) = 0. 4
0, 0, 0, 2, 0, 0, 0, 3, 2, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 3, 0, 0, 0, 0, 5, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := Boole[(g = GCD @@ FactorInteger[n][[;; , 2]]) > 1] * g; Array[a, 100] (* Amiram Eldar, Aug 13 2024 *)
PROG
(PARI) r(n) = for(j=1, n, print1(ispower(j)", "));
r(100)
CROSSREFS
Cf. A132350, A132351, A132352, A132384.
Sequence in context: A355524 A113503 A082507 * A216226 A123391 A375339
Adjacent sequences: A132346 A132347 A132348 * A132350 A132351 A132352
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 11 2007
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 30 07:09 EDT 2024. Contains 375532 sequences. (Running on oeis4.)