|
|
A190308
|
|
Numbers k such that tau(4k-1) = tau(4k+1) = tau(6k-1) = tau(6k+1) where tau(k) = A000005(k).
|
|
1
|
|
|
1, 3, 18, 31, 36, 45, 87, 136, 145, 225, 275, 357, 418, 428, 460, 505, 512, 528, 539, 549, 640, 663, 728, 768, 838, 855, 876, 886, 910, 942, 960, 995, 1026, 1030, 1047, 1067, 1083, 1125, 1133, 1157, 1191, 1212, 1291, 1300, 1400, 1443, 1470, 1480, 1491, 1539
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
with(numtheory): A190308 := proc(n) option remember: local k, t: if(n=1)then return 1: fi: for k from procname(n-1)+1 do t:=tau(4*k-1): if(t=tau(4*k+1) and t=tau(6*k-1) and t=tau(6*k+1))then return k: fi: od: end: seq(A190308(n), n=1..50); # Nathaniel Johnston, May 25 2011
|
|
MATHEMATICA
|
d[n_] := d[n] = DivisorSigma[0, n]; Select[Range[1600], d[4*#-1] == d[4*#+1] == d[6*#-1] == d[6*#+1] &] (* Amiram Eldar, Dec 02 2023 *)
|
|
PROG
|
(PARI) is(n) = {my(d = numdiv(4*n-1)); numdiv(4*n+1) == d && numdiv(6*n-1) == d && numdiv(6*n+1) == d; } \\ Amiram Eldar, Dec 02 2023
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|