|
| |
|
|
A103751
|
|
Squares whose digits are all positive and even.
|
|
0
|
|
|
|
4, 64, 484, 4624, 8464, 26244, 28224, 68644, 228484, 446224, 824464, 868624, 2862864, 8282884, 8868484, 22448644, 26646244, 44462224, 82228624, 82664464, 222248464, 284866884, 662444644, 866242624, 4246868224, 4444622224
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Subset of A030098.
|
|
|
LINKS
|
Table of n, a(n) for n=1..26.
|
|
|
MAPLE
|
a:=proc(n) if convert(convert((n^2), base, 10), set) subset {2, 4, 6, 8} then n^2 else fi end:seq(a(n), n=1..100000);
|
|
|
MATHEMATICA
|
pevQ[n_]:=Module[{idn=IntegerDigits[n]}, FreeQ[idn, 0]&&And@@EvenQ[idn]]; Select[Range[70000]^2, pevQ] (* Harvey P. Dale, Jul 19 2013 *)
|
|
|
CROSSREFS
|
Cf. A030098.
Sequence in context: A030098 A087045 A169801 * A053959 A195800 A224446
Adjacent sequences: A103748 A103749 A103750 * A103752 A103753 A103754
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Emeric Deutsch, Mar 28 2005
|
|
|
STATUS
|
approved
|
| |
|
|
