login
A140667
Odd composite numbers k for which k = A140607((k-1)/2).
3
91, 1581, 2465, 8481, 25761, 31609, 33355, 34945, 118405, 146611, 319507, 736291, 994507, 3270403, 3375487, 5176153, 6186403, 6228685, 8650951, 10679131, 22028203, 26017291, 31470211, 33796531, 41710411, 42149971, 42474547, 46672291, 48316969, 49019851, 58986091, 68182003, 69885649
OFFSET
1,1
PROG
(PARI) f(n) = (eulerphi(2*n+1) + 1 + g(n))/2; \\ A140607
g(n) = sumdiv(2*n+1, d, eulerphi(d)/(t=znorder(Mod(2, d))))*t-t+1; \\ A137576
isok(c) = if (!isprime(c) && (c%2), f((c-1)/2) == c); \\ Michel Marcus, Jan 31 2023
KEYWORD
nonn
AUTHOR
Ray Chandler, May 20 2008
EXTENSIONS
More terms from Michel Marcus, Jan 31 2023
STATUS
approved