login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A007745 n OR n^2 (applied to binary expansions). 8
1, 6, 11, 20, 29, 38, 55, 72, 89, 110, 123, 156, 173, 206, 239, 272, 305, 342, 379, 404, 445, 502, 535, 600, 633, 702, 731, 796, 861, 926, 991, 1056, 1121, 1190, 1259, 1332, 1405, 1446, 1527, 1640, 1721, 1774, 1851, 1980, 2029, 2158, 2223, 2352, 2417, 2550 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

MATHEMATICA

d = 15; Mb = Array[ 2^(d - #)&, d ]; Map[ Plus@@(Mb*#)&, Array[ IntegerDigits[ #, 2, d ] + IntegerDigits[ #^2, 2, d ]&, 180 ]/. (2->1) ] (* Mocquard and Bouchon *)

Table[BitOr[n, n^2], {n, 100}] (* Vladimir Joseph Stephan Orlovsky, Jul 19 2011 *)

PROG

(Haskell)

import Data.Bits ((.|.))

a007745 n = n .|. (n ^ 2)  -- Reinhard Zumkeller, Apr 28 2014

CROSSREFS

Cf. A169810 (XOR), A213541 (AND), A002378.

Sequence in context: A083500 A102305 A160842 * A188556 A021011 A000382

Adjacent sequences:  A007742 A007743 A007744 * A007746 A007747 A007748

KEYWORD

base,nonn,easy,look

AUTHOR

J. P. Mocquard and D. Bouchon (BOUCHON(AT)zeus.univ-poitiers.fr)

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified December 12 16:18 EST 2017. Contains 295939 sequences.