The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A108322 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A108322

"Binary prime squares": a(n) = n^2 written in base 2 and interpreted as a base-10 number, if that number is prime; a(n) = 0 otherwise.
(history; published version)

#20 by OEIS Server at Wed Jun 12 15:40:20 EDT 2024

LINKS

Harvey P. Dale, <a href="/A108322/b108322_1.txt">Table of n, a(n) for n = 1..1000</a>

#19 by Harvey P. Dale at Wed Jun 12 15:40:20 EDT 2024

STATUS

editing

approved

Discussion

Wed Jun 12

15:40

OEIS Server: Installed first b-file as b108322.txt.

#18 by Harvey P. Dale at Wed Jun 12 15:40:15 EDT 2024

LINKS

Harvey P. Dale, <a href="/A108322/b108322_1.txt">Table of n, a(n) for n = 1..1000</a>

STATUS

approved

editing

#17 by Harvey P. Dale at Wed Jun 12 15:38:59 EDT 2024

STATUS

editing

approved

#16 by Harvey P. Dale at Wed Jun 12 15:38:56 EDT 2024

MATHEMATICA

bps[n_]:=With[{c=FromDigits[IntegerDigits[n^2, 2]]}, If[PrimeQ[c], c, 0]]; Array[bps, 80] (* Harvey P. Dale, Jun 12 2024 *)

STATUS

approved

editing

#15 by N. J. A. Sloane at Sat Sep 29 00:37:50 EDT 2018

STATUS

proposed

approved

#14 by Michel Marcus at Mon Sep 24 03:43:31 EDT 2018

STATUS

editing

proposed

Discussion

Mon Sep 24

23:33

Jon E. Schoenfield: Thanks!

#13 by Michel Marcus at Mon Sep 24 03:43:12 EDT 2018

OFFSET

0,1,29

EXTENSIONS

Offset corrected by Michel Marcus, Sep 24 2018

STATUS

proposed

editing

Discussion

Mon Sep 24

03:43

Michel Marcus: offset 0 was the problem

#12 by Michel Marcus at Mon Sep 24 01:47:43 EDT 2018

STATUS

editing

proposed

#11 by Michel Marcus at Mon Sep 24 01:47:41 EDT 2018

CROSSREFS

Cf. A108325 (the main sequence for this entry).

Cf. A108323, A108324, A108325.

STATUS

proposed

editing