login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A332451 a(n) = A005940(1+A048724(A156552(n))). 4
1, 4, 9, 6, 25, 16, 49, 10, 15, 36, 121, 54, 169, 100, 81, 14, 289, 24, 361, 150, 225, 196, 529, 250, 35, 484, 21, 294, 841, 64, 961, 22, 441, 676, 625, 90, 1369, 1156, 1089, 490, 1681, 144, 1849, 726, 375, 1444, 2209, 686, 77, 60, 1521, 1014, 2809, 40, 1225, 1210, 2601, 2116, 3481, 486, 3721, 3364, 735, 26, 3025, 400 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

Index entries for sequences related to polynomials in ring GF(2)[X)

Index entries for sequences computed from indices in prime factorization

FORMULA

a(n) = A005940(1+A048724(A156552(n))).

a(p) = p^2 for all primes p.

For all squarefree numbers u, a(u) = A332449(u) and A010052(a(u)) = 1.

a(A003961(n)) = A003961(a(n)).

a(A293448(n)) = A293448(a(n)).

a(A332450(n)) = A332450(A003961(n)); A332450(a(n)) = A003961(A332450(n)).

A008836(a(n)) = +1 for all n.

PROG

(PARI)

A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t }; \\ From A005940

A048724(n) = bitxor(n, 2*n); \\ From A048724

A156552(n) = {my(f = factor(n), p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res}; \\ From A156552

A332451(n) = A005940(1+A048724(A156552(n)));

CROSSREFS

Cf. A000290, A003961, A005117 (gives the positions of squares), A005940, A008836, A010052, A048724, A156552, A277010, A293448, A332449, A332450.

Permutation of A028260.

Cf. A332460 for complementary sequence (after its initial 1).

Sequence in context: A074767 A016097 A083717 * A130041 A109987 A021672

Adjacent sequences:  A332448 A332449 A332450 * A332452 A332453 A332454

KEYWORD

nonn

AUTHOR

Antti Karttunen, Feb 15 2020

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 8 19:01 EDT 2020. Contains 335524 sequences. (Running on oeis4.)