A326708 Non-Brazilian squares of primes.
4, 9, 25, 49, 169, 289, 361, 529, 841, 961, 1369, 1681, 1849, 2209, 2809, 3481, 3721, 4489, 5041, 5329, 6241, 6889, 7921, 9409, 10201, 10609, 11449, 11881, 12769, 16129, 17161, 18769, 19321, 22201, 22801, 24649, 26569, 27889, 29929, 32041, 32761
Offset: 1
Examples
49 = 7^2 is not Brazilian, so beta(49) = 0 with tau(49) = 3.
Links
- Bernard Schott, Array relations beta = f(tau) for squares
- Wikipédia, 121 (nombre) (in French)
- Wikipédia, Nombre brésilien (in French)
- Index entries for sequences related to Brazilian numbers
Crossrefs
Programs
-
Mathematica
brazBases[n_] := Select[Range[2, n - 2], Length[Union[IntegerDigits[n, #]]] == 1 &]; Select[Range[2, 1000], PrimeQ[#^(1/2)]&& brazBases[#] == {} &] (* Metin Sariyar, Sep 05 2019 *)
Comments