STATUS
editing
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A056926
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
FORMULA
a(n) = n^((d(n) mod 2)/2) for n>=1. - Wesley Ivan Hurt, Jun 07 2023
STATUS
approved
editing
STATUS
proposed
approved
STATUS
editing
proposed
NAME
a(n) = sqrt(n) if n is a square, otherwise 1.
COMMENTS
Like A037213, but has 1's instead of 0's for nonsquare n > 0. - Antti Karttunen, Jul 22 2018
LINKS
Antti Karttunen, <a href="/A056926/b056926.txt">Table of n, a(n) for n = 0..65537</a>
DATA
0, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 6, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 1, 1, 1, 1
OFFSET
1,4
0,5
EXAMPLE
a(24) = 1 because 24 is not a square, a(25) = 5 because 25 = 5^2.
PROG
(PARI) A056926(n) = if(issquare(n, &n), n, 1); \\ Antti Karttunen, Jul 22 2018
CROSSREFS
Cf. A000196.
EXTENSIONS
Term a(0) = 0 prepended by Antti Karttunen, Jul 22 2018
STATUS
approved
editing
MATHEMATICA
sq1[n_]:=Module[{sn=Sqrt[n]}, If[IntegerQ[sn], sn, 1]]; Array[sq1, 110] (* From _Harvey P. Dale, _, Jul 25 2011 *)
AUTHOR
_Henry Bottomley (se16(AT)btinternet.com), _, Jul 12 2000
STATUS
editing
approved
MATHEMATICA
sq1[n_]:=Module[{sn=Sqrt[n]}, If[IntegerQ[sn], sn, 1]]; Array[sq1, 110] (* From Harvey P. Dale, Jul 25 2011 *)
STATUS
approved
editing