login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A069122
Numbers k such that the squarefree part of k is greater than the squarefree part of (k+1).
1
3, 7, 8, 11, 15, 17, 19, 23, 24, 26, 31, 35, 39, 43, 44, 47, 48, 51, 53, 55, 59, 62, 63, 67, 71, 74, 79, 80, 83, 87, 89, 91, 95, 97, 99, 103, 107, 111, 115, 116, 119, 120, 123, 124, 127, 131, 134, 139, 143, 146, 149, 151, 152, 155, 159, 161, 163, 167, 168, 170, 174
OFFSET
1,1
LINKS
MATHEMATICA
f[p_, e_] := If[OddQ[e], p, 1]; sqf[n_] := Times @@ (f @@@ FactorInteger[n]); Select[Range[200], sqf[#] > sqf[# + 1] &] (* Amiram Eldar, Apr 02 2020 *)
PROG
(PARI) for(n=1, 220, if(core(n)>core(n+1), print1(n, ", ")))
CROSSREFS
Cf. A007913.
Sequence in context: A194470 A078466 A047528 * A278519 A007970 A255342
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 07 2002
STATUS
approved

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy