login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A304720
Number of nonnegative integers k such that n - (4^k - k) is positive and squarefree.
4
0, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 2, 3, 2, 2, 1, 3, 1, 2, 1, 3, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 2, 3, 2, 2, 1, 3, 1, 2, 2, 3, 2, 1, 2, 2, 2, 1, 1, 2, 1, 2, 1, 3, 1, 2, 1, 3, 2, 3, 2, 2, 2, 2, 3, 3, 2, 2, 3, 4, 2, 3, 3, 3, 1, 2, 2, 4, 2, 2, 3, 3, 2, 2, 3, 3, 1, 3, 2, 4, 1, 3, 2, 4, 2, 3, 2, 3
OFFSET
1,4
COMMENTS
Conjecture: a(n) > 0 for all n > 1.
This has been verified for n up to 2*10^10.
See A304721 for the values of n with a(n) = 1.
See A281192 for N such that none of N - 1 or N + 1 is squarefree: then n = N + 2 is such that n - 1 and n - 3 are not squarefree, i.e., one cannot take k = 0 or k = 1 in the present definition, and k > 1 is required to satisfy the conjecture. - M. F. Hasler, May 23 2018
LINKS
Zhi-Wei Sun, Mixed sums of primes and other terms, in: D. Chudnovsky and G. Chudnovsky (eds.), Additive Number Theory, Springer, New York, 2010, pp. 341-353.
Zhi-Wei Sun, Conjectures on representations involving primes, in: M. Nathanson (ed.), Combinatorial and Additive Number Theory II, Springer Proc. in Math. & Stat., Vol. 220, Springer, Cham, 2017, pp. 279-310. (See also arXiv:1211.1588 [math.NT], 2012-2017.)
EXAMPLE
a(2) = 1 with 2 - (4^0 - 0) = 1 squarefree.
a(178) = 1 with 178 - (4^0 - 0) = 3*59 squarefree.
a(245) = 1 with 245 - (4^2 - 2) = 3*7*11 squarefree.
a(9196727) = 1 with 9196727 - (4^6 - 6) = 19*211*2293 squarefree.
a(16130577) = 1 with 16130577 - (4^9 - 9) = 2*7934221 squarefree.
a(38029402) = 1 with 38029402 - (4^1 - 1) = 1153*32983 squarefree.
a(180196927) = 1 with 180196927 - (4^11 - 11) = 2*139*227*2789 squarefree.
MATHEMATICA
f[n_]:=f[n]=4^n-n;
tab={}; Do[r=0; k=0; Label[bb]; If[f[k]>=n, Goto[aa]]; If[SquareFreeQ[n-f[k]], r=r+1]; k=k+1; Goto[bb]; Label[aa]; tab=Append[tab, r], {n, 1, 100}]; Print[tab]
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, May 17 2018
STATUS
approved