This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A070258 #41 Jan 09 2025 00:24:04
%S A070258 48,98,124,242,243,342,350,423,475,548,603,724,774,844,845,846,1024,
%T A070258 1250,1274,1323,1375,1420,1448,1519,1664,1674,1680,1681,1682,1848,
%U A070258 1862,1924,2007,2023,2056,2106,2150,2223,2275,2348,2366,2523,2527,2574,2644
%N A070258 Smallest of 3 consecutive numbers each divisible by a square.
%C A070258 The sequence includes an infinite family of arithmetic progressions. Such AP's can be constructed to each term, with large differences [like e.g. square of primorials, A061742]. It is necessary to solve suitable systems of linear Diophantine equations. E.g.: subsequences of triples of terms = {900a+548, 900a+549, 900a+550} = {4(225f+137), 9(100f+61), 25(36f+22)}; starting terms in this sequence = {548, 1448, 2348, ...}; difference = A002110(3)^2. - _Labos Elemer_, Nov 25 2002
%C A070258 The numbers of terms not exceeding 10^k, for k = 1, 2, ..., are 0, 2, 16, 180, 1868, 18649, 186335, 1863390, 18634236, 186340191, ... . Apparently, the asymptotic density of this sequence exists and equals 0.01863... . - _Amiram Eldar_, Jan 18 2023
%C A070258 The asymptotic density of this sequence is 1 - 3/zeta(2) + 3 * Product_{p prime} (1 - 2/p^2) - Product_{p prime} (1 - 3/p^2) = 1 - 3 * A059956 + 3 * A065474 - A206256 = 0.018634010349844827414... . - _Amiram Eldar_, Sep 12 2024
%D A070258 Jean-Marie De Koninck, Ces nombres qui nous fascinent, Entry 48, p. 18, Ellipses, Paris, 2008.
%H A070258 Amiram Eldar, <a href="/A070258/b070258.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%F A070258 a(n) = A235578(n) - 1. - _Amiram Eldar_, Feb 09 2021
%t A070258 f[n_] := Union[ Transpose[ FactorInteger[n]] [[2]]] [[ -1]]; a = 0; b = 1; Do[c = f[n]; If[a> 1 && b > 1 && c > 1, Print[n - 2]]; a = b; b = c, {n, 3, 10^6}]
%t A070258 Flatten[Position[Partition[SquareFreeQ/@Range[3000],3,1],_?(Union[#] == {False}&),{1},Heads->False]] (* _Harvey P. Dale_, May 24 2014 *)
%t A070258 f@n_ := Flatten@ Position[Partition[SquareFreeQ /@ Range@2000, n, 1], Table[False, {n}]]; f@3 (* _Hans Rudolf Widmer_, Aug 30 2022 *)
%Y A070258 Subsequence of A013929 and A068781.
%Y A070258 Cf. A002110, A061742, A235578.
%Y A070258 Cf. A059956, A065474, A206256.
%K A070258 nonn
%O A070258 1,1
%A A070258 Sharon Sela (sharonsela(AT)hotmail.com), May 09 2002
%E A070258 More terms from _Jason Earls_ and _Robert G. Wilson v_, May 10 2002
%E A070258 Offset corrected by _Amiram Eldar_, Feb 09 2021