A132384 -id:A132384

Search: a132384 -id:a132384

Displaying 1-2 of 2 results found.

page 1

A132349

If n is a k-th power with k >= 2 then a(n) = k, otherwise a(n) = 0.

+10
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.

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Nov 11 2007

STATUS

approved

A132352

Partial sums of A132351.

+10
2

1, 3, 6, 9, 13, 18, 24, 30, 36, 43, 51, 60, 70, 81, 93, 105, 118, 132, 147, 163, 180, 198, 217, 237, 257, 278, 299, 321, 344, 368, 393, 418, 444, 471, 499, 527, 556, 586, 617, 649, 682, 716, 751, 787, 824, 862, 901, 941, 981, 1022, 1064, 1107, 1151, 1196, 1242, 1289, 1337