|
|
A283670
|
|
The single square referenced in A190641.
|
|
2
|
|
|
4, 4, 9, 4, 4, 9, 4, 4, 25, 9, 4, 4, 4, 4, 9, 4, 49, 25, 4, 9, 4, 4, 9, 4, 4, 25, 4, 4, 9, 4, 4, 9, 4, 4, 49, 9, 4, 4, 4, 9, 4, 121, 4, 25, 9, 4, 4, 9, 4, 4, 49, 4, 25, 4, 9, 4, 4, 9, 4, 4, 169, 9, 4, 25, 4, 4, 4, 9, 4, 9, 4, 9, 4, 4, 4, 4, 4, 4, 9, 4, 4
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
A190641(4) = 12, 12 = 2*2*3, so 12 has only one square factor, namely 4.
|
|
MATHEMATICA
|
f[n_] := Module[{f = FactorInteger[n], ind}, ind = Position[f[[;; , 2]], _?(# > 1 &)]; If[Length[ind] == 1, f[[ind[[1, 1]], 1]]^2, Nothing]]; Array[f, 300] (* Amiram Eldar, Jul 28 2024 *)
|
|
PROG
|
(PARI) lista(kmax) = for(k = 1, kmax, my(f = factor(k)); if(#select(x -> (x>1), f[, 2]) == 1, for(i = 1, #f~, if(f[i, 2] > 1, print1(f[i, 1]^2, ", "); break)))); \\ Amiram Eldar, Jul 28 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|