|
Search: id:A071320
|
|
|
| A071320 |
|
Least of four consecutive numbers which are cube-free and not square-free, i.e. {n,n+1,n+2,n+3} are in A067259. |
|
+0
2
|
|
| 844, 1681, 8523, 8954, 10050, 10924, 11322, 17404, 19940, 22020, 23762, 24450, 25772, 27547, 30923, 30924, 33172, 34347, 38724, 39050, 39347, 40050, 47673, 47724, 47825, 49147, 54585, 55449, 57474, 58473, 58849, 58867, 59924, 62865
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
A051903[n]=A051903[n+1]=A051903[n+2]=A051903[n+3]=2
|
|
EXAMPLE
|
n=844=2.2.211, n+1=845=5.13.13, n+2=846=2.3.3.47, n+4=847=7.11.11
|
|
MATHEMATICA
|
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ep[x_] := Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] Do[s=ep[n]; s1=ep[n+1]; s2=ep[n+2]; s3=ep[n+3]; If[Equal[Max[s], 2]&&Equal[Max[s1], 2] &&Equal[Max[s2], 2]&&Equal[Max[s3], 2], Print[n]], {n, 1, 1000000}]
|
|
CROSSREFS
|
Cf. A063528, A067259.
Sequence in context: A114359 A038013 A078144 this_sequence A160212 A127593 A085323
Adjacent sequences: A071317 A071318 A071319 this_sequence A071321 A071322 A071323
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), May 29 2002
|
|
|
Search completed in 0.002 seconds
|
