OFFSET
1,1
COMMENTS
FORMULA
a(n^2) = 2.
MAPLE
A302690 := proc(n)
local k ;
for k from 1 do
if A002828(k*n) = 2 then
return k;
end if;
end do:
end proc:
seq(A302690(n), n=1..100) ; # R. J. Mathar, Apr 16 2018
PROG
(PARI) a363340(n) = my(r=1); foreach(mattranspose(factor(n)), f, if(f[1]%4==3&&f[2]%2==1, r*=f[1])); r;
a(n) = my(p=a363340(n)); if(issquare(p*n), 2*p, p); \\ Peter Schorn, Jul 20 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 11 2018
EXTENSIONS
Name corrected and more terms added by Michel Marcus, Apr 12 2018
Better name from Peter Schorn, Jul 20 2023
STATUS
approved