cp's OEIS Frontend

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.

A076786 Squarefree numbers such that in decimal representation all their prefixes are also squarefree.

This page as a plain text file.
%I A076786 #8 Aug 23 2020 11:39:23
%S A076786 1,2,3,5,6,7,10,11,13,14,15,17,19,21,22,23,26,29,30,31,33,34,35,37,38,
%T A076786 39,51,53,55,57,58,59,61,62,65,66,67,69,70,71,73,74,77,78,79,101,102,
%U A076786 103,105,106,107,109,110,111,113,114,115,118,119,130,131,133,134,137
%N A076786 Squarefree numbers such that in decimal representation all their prefixes are also squarefree.
%C A076786 m is a term iff A008966(floor(m/10^k))=1 for 0<=k<=A004216(n);
%C A076786 a(n)=A005117(n) for n<=26, but A005117(27)=41 is not a term, as 4=2^2 is not squarefree.
%H A076786 Harvey P. Dale, <a href="/A076786/b076786.txt">Table of n, a(n) for n = 1..1000</a>
%e A076786 143=11*13 is a term, as also 14=2*7 and 1 are squarefree.
%t A076786 Select[Range[200],AllTrue[FromDigits/@Table[Take[IntegerDigits[#],{1,n}],{n,IntegerLength[#]}],SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 23 2020 *)
%K A076786 nonn,base
%O A076786 1,2
%A A076786 _Reinhard Zumkeller_, Nov 16 2002