OFFSET

1,1

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.

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..1001

EXAMPLE

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.

MATHEMATICA

Select[Prime[Range[1000]], OddQ[DigitCount[#^3, 2, 1]] &] (* Indranil Ghosh, Apr 02 2017 *)

PROG

(Scheme, with Antti Karttunen's IntSeq-library) (define A234218 (MATCHING-POS 1 1 (lambda (n) (and (prime? n) (odd? (A000120 (expt n 3))))))) ;; Antti Karttunen, Dec 22 2013

(PARI) is(n)=isprime(n) && hammingweight(n^3)%2 \\ Charles R Greathouse IV, Mar 17 2014

CROSSREFS

KEYWORD

nonn,easy

AUTHOR

Irina Gerasimova, Dec 21 2013

EXTENSIONS

Missing terms added by Antti Karttunen, Dec 22 2013

STATUS

approved