|
|
|
|
26, 34, 50, 76, 86, 94, 118, 122, 124, 134, 142, 146, 154, 170, 188, 202, 206, 214, 218, 236, 244, 246, 254, 266, 274, 286, 290, 298, 302, 322, 326, 334, 340, 362, 364, 370, 376, 386, 394, 404, 406, 412, 426, 428, 436, 446, 454, 470, 472, 482, 484, 494, 514, 516, 518, 526
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
26 is a term because it is not a term of A000010 nor is it a term of A001615.
34 is a term because it is not a term of A000010 nor is it a term of A001615.
14 is not a term because, although it is not a term of A000010, it is a term of A001615.
|
|
PROG
|
(PARI) dpsi(n) = n * sumdivmult(n, d, issquarefree(d)/d);
isnotpsi(n) = for (k=1, n-1, if (dpsi(k) == n, return(0)); ); return (1);
isok(n) = !(n%2) && (!istotient(n) && isnotpsi(n)); \\ Michel Marcus, Mar 22 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|