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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A231122 Numbers k >= 0 such that 2^k is number of ways to write n as n = x*y, where x, y = squarefree numbers, 1 <= x <= n, 1 <= y <= n, or -1 if no such k exists. 2
0, 0, 0, 0, 0, 1, 0, -1, 0, 1, 0, 0, 0, 1, 1, -1, 0, 0, 0, 0, 1, 1, 0, -1, 0, 1, -1, 0, 0, 2, 0, -1, 1, 1, 1, 0, 0, 1, 1, -1, 0, 2, 0, 0, 0, 1, 0, -1, 0, 0, 1, 0, 0, -1, 1, -1, 1, 1, 0, 1, 0, 1, 0, -1, 1, 2, 0, 0, 1, 2, 0, -1, 0, 1, 0, 0, 1, 2, 0, -1, -1, 1, 0, 1, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,30

LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

EXAMPLE

1(1*1), 2(1*2), 3(1*3), 4(2*2), 5(1*5), 6(1*6, 2*3), 7(1*7), 8(-), 9(3*3), 10(1*10, 2*5), 11(1*11), 12(2*6), 13(1*13), 14(1*14, 2*7), 15(1*15, 3*5), 16(-), 17(1*17), 18(3*6), 19(1*19), 20(2*10), 21(1*21, 3*7), 22(1*22, 2*11), 23(1*23), 24(-), 25(5*5), 26(1*26, 2*13), 27(-).

PROG

(PARI) a(n)=if(n==1, return(0)); my(f=factor(n)[, 2]); if(vecmax(f)>2, return(-1)); max(sum(i=1, #f, 2-f[i])-1, 0) \\ Charles R Greathouse IV, Nov 04 2013

CROSSREFS

Cf. A046099(k<0), A130091(k<=0), A004709(k>=0), A230843(k=0), (A006881 U A085987 U ...)(k=1).

Sequence in context: A152492 A075446 A184159 * A178686 A142724 A174656

Adjacent sequences:  A231119 A231120 A231121 * A231123 A231124 A231125

KEYWORD

sign

AUTHOR

Gerasimov Sergey, Nov 04 2013

EXTENSIONS

a(80) corrected by Charles R Greathouse IV, Nov 04 2013

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 November 15 11:18 EST 2019. Contains 329144 sequences. (Running on oeis4.)