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.

Showing 1-2 of 2 results.

A077676 Squares using only squarefree digits (2, 3, 5, 6, 7).

Original entry on oeis.org

25, 36, 225, 256, 576, 625, 676, 5625, 5776, 7225, 27225, 27556, 37636, 55225, 65536, 75625, 225625, 226576, 235225, 265225, 266256, 275625, 276676, 367236, 525625, 553536, 732736, 765625, 767376, 2322576, 2325625, 2356225, 2637376, 2673225
Offset: 1

Views

Author

Amarnath Murthy, Nov 16 2002

Keywords

Comments

a(n) is == 5 or 6 (mod 10).

Crossrefs

Cf. A077674, A077675, A006716. Different from A077437.

Programs

  • Mathematica
    sfdsQ[n_]:=Module[{idn=DigitCount[n]},idn[[1]]==idn[[4]]==idn[[8]] == idn[[9]]==idn[[10]]==0]; Select[Range[2000]^2,sfdsQ] (* Harvey P. Dale, Oct 09 2011 *)
    Table[Select[FromDigits/@Tuples[{2,3,5,6,7},n],IntegerQ[Sqrt[#]]&],{n,2,7}]//Flatten (* Harvey P. Dale, Feb 04 2015 *)

Extensions

Corrected and extended by Sascha Kurz, Jan 28 2003

A077675 Squarefree numbers with square nonzero square digits.

Original entry on oeis.org

11, 14, 19, 41, 89, 91, 94, 111, 114, 118, 119, 141, 149, 181, 191, 194, 199, 411, 418, 419, 449, 481, 489, 491, 494, 498, 499, 811, 814, 818, 849, 881, 889, 894, 898, 899, 911, 914, 919, 941, 949, 989, 991, 994, 998, 1111, 1114, 1118, 1119, 1141, 1149
Offset: 1

Views

Author

Amarnath Murthy, Nov 16 2002

Keywords

Crossrefs

Cf. A077674.

Programs

  • Mathematica
    Select[Flatten[Table[FromDigits/@Tuples[{1,4,8,9},n],{n,2,4}]],SquareFreeQ] (* Harvey P. Dale, Oct 10 2013 *)

Extensions

Corrected and extended by David Garber, Nov 19 2002
Showing 1-2 of 2 results.