cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A235331 Numbers with odious squares.

Original entry on oeis.org

1, 2, 4, 5, 7, 8, 9, 10, 11, 14, 16, 17, 18, 19, 20, 22, 23, 25, 28, 29, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 43, 44, 46, 49, 50, 51, 55, 56, 58, 59, 62, 64, 65, 66, 67, 68, 70, 71, 72, 75, 76, 77, 78, 79, 80, 82, 85, 86, 87, 88, 89, 91, 92, 95, 97, 98, 100
Offset: 1

Views

Author

Gerasimov Sergey, Jan 06 2014

Keywords

Comments

Numbers that are sqrt(odious squares).

Examples

			1 = sqrt(A235001(1)) = sqrt(1).
2 = sqrt(A235001(2)) = sqrt(4).
4 = sqrt(A235001(3)) = sqrt(16).
5 = sqrt(A235001(4)) = sqrt(25).
		

Crossrefs

Programs

  • Magma
    [n : n in [0..130] |IsOdd(&+Intseq(n^2, 2))]; // Vincenzo Librandi, Jan 31 2018
    
  • Mathematica
    Select[Range[200], OddQ[DigitCount[#^2, 2][[1]]] &] (* Vincenzo Librandi, Jan 31 2018 *)
  • PARI
    isok(n) = (hammingweight(n^2) % 2) == 1; \\ Michel Marcus, Jan 31 2018

Formula

a(n) = sqrt(A235001(n)).

A234218 Primes whose cubes are odious.

Original entry on oeis.org

2, 13, 23, 29, 43, 59, 61, 67, 71, 73, 79, 89, 97, 101, 103, 109, 113, 131, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 229, 241, 251, 293, 311, 313, 337, 353, 367, 383, 389, 397, 409, 419, 431, 439, 443, 461, 467, 479, 499, 509, 521, 541, 563, 577, 601
Offset: 1

Views

Author

Irina Gerasimova, Dec 21 2013

Keywords

Comments

Primes p with odious p^3.
Note: "odious" means having an odd number of 1-bits in number's binary representation. So, put in another way, primes p such that A010060(A000578(p)) = 1. - Antti Karttunen, Dec 22 2013
Subsequence of the numbers 1, 2, 4, 8, 13, 16, 23, 25, 26, 29, 32, 35, 43, 45, 46, ... which have odious cubes.

Examples

			Prime 2 is in this sequence because 2^3 = 8 and 8 is odious number. Prime 13 is in this sequence because 13*3 = 2197 and 2197 is odious number.
		

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[1000]], OddQ[DigitCount[#^3, 2, 1]] &] (* Indranil Ghosh, Apr 02 2017 *)
  • PARI
    is(n)=isprime(n) && hammingweight(n^3)%2 \\ Charles R Greathouse IV, Mar 17 2014

Extensions

Missing terms added by Antti Karttunen, Dec 22 2013
Showing 1-2 of 2 results.