|
Search: id:A072297
|
|
|
| A072297 |
|
Number of even non-cototients not exceeding 2^n. |
|
+0
1
|
|
| 0, 0, 0, 1, 2, 6, 10, 23, 48, 99, 194, 392, 791, 1600, 3290, 6910, 13900, 28269, 57455, 116213, 234239, 470861, 945510, 1897007, 3802257, 7616206, 15244011
(list; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
EXAMPLE
|
a(6)=6 because the even non-cototients not exceeding 64 are {10,26,34,50,52&58}.
|
|
MATHEMATICA
|
a = Table[0, {2^26}]; Do[ b = n - EulerPhi[n]; If[ EvenQ[b] && b < 2^27 + 1, a[[b/2]]++ ], {n, 2, 10^9}]; c = 0; k = 1; Do[While[k < 2^n, If[a[[k]] == 0, c++ ]; k++ ]; Print[c], {n, 1, 26}]
|
|
CROSSREFS
|
Number of terms in A063740 <= 2^n. Cf. A072077.
Sequence in context: A125527 A049750 A134016 this_sequence A120963 A104142 A079713
Adjacent sequences: A072294 A072295 A072296 this_sequence A072298 A072299 A072300
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 13 2002 and Jul 29 2002
|
|
|
Search completed in 0.002 seconds
|
