A302048 a(n) = 1 if n = p^2 for some prime p, otherwise 0. Characteristic function of squares of primes (A001248).

0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

Offset

0

Links

Antti Karttunen, Table of n, a(n) for n = 0..66049

Index entries for characteristic functions

Index entries for sequences computed from exponents in factorization of n

Formula

a(n) = A185012(A100995(n)) = A185012(A078898(n)) = A185012(A246277(n)).

Mathematica

Table[If[PrimeQ[Sqrt[n]], 1, 0], {n, 0, 130}] (* Harvey P. Dale, May 25 2019 *)

Prog

(PARI) A302048(n) = (2==isprimepower(n));

Crossrefs

Cf. A001248, A010051, A010052, A045698, A064911, A069513, A078898, A100995, A101040, A105700, A246277, A280710, A302047, A302049, A302777.

Sequence in context: A356924 A285125 A221152 * A093957 A283317 A188041

Adjacent sequences: A302045 A302046 A302047 * A302049 A302050 A302051

Keyword

nonn

Author

Antti Karttunen, Apr 24 2018

Status

approved