|
|
|
|
324, 1296, 2500, 5625, 9604, 10000, 11664, 20736, 21609, 38416, 50625, 58564, 60025, 82944, 90000, 114244, 131769, 160000, 194481, 234256, 236196, 250000, 257049, 334084, 345744, 360000, 366025, 456976, 521284, 614656, 640000, 714025, 717409, 751689, 810000, 944784, 960400, 1119364, 1172889, 1185921, 1265625, 1327104, 1336336
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
All terms are squares; their square roots are in A329611.
|
|
LINKS
|
|
|
PROG
|
(PARI)
A034386(n) = prod(i=1, primepi(n), prime(i));
A071187(n) = if(1==n, n, my(f = factor(numdiv(n))); vecmin(f[, 1]));
k=0; n=0; while(n<2^16, n++; u = n*n; if(A071187(u)!=A329614(u), k++; write("b329613.txt", k, " ", u); print1(u, ", ")));
(PARI) \\ See link
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|