|
|
A309534
|
|
Numbers k such that A001414(k^2+1) is divisible by k.
|
|
3
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
34 is a member because 34^2+1=13*89 and 13+89=3*34.
|
|
MAPLE
|
filter:= proc(n) local F, t, y;
F:= ifactors(n^2+1)[2];
y:= add(t[1]*t[2], t=F);
y mod n = 0
end proc:
select(filter, [$1..10^6]);
|
|
PROG
|
(PARI) f(n) = (n=factor(n))[, 1]~*n[, 2]; \\ A001414
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|